[fix] compiler, syntax: first case is optional (usefull for simple pa…

…rser)
MLstate · Feb 9, 2012 · a62bfa3 · a62bfa3
1 parent e1512f9
commit a62bfa3
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/opalang/js_syntax/trx.trx b/opalang/js_syntax/trx.trx
@@ -37,14 +37,13 @@ rbrace   <- Opa_lexer.rbrace  $
 
 ;Expression = deco(Expression_aux)
 Expression_aux <-
-  (Opa_parser.match_case ParserSeq:e {{e}})+:l
-  {{ Trx_ast.Expr l }}
-
-;SubExpression = deco(SubExpression_aux)
-SubExpression_aux <-
   Opa_parser.match_case? ParserSeq:e (Opa_parser.match_case ParserSeq:e {{e}})*:l
   {{ Trx_ast.Expr (e::l) }}
 
+;SubExpression = deco(SubExpression_aux)
+SubExpression_aux <- Expression_aux
+
+
 ExpressionAsFunction <-  Opa_lexer.PARSER lbrace Expression:expr rbrace {{ expr }}
 
 Item = deco(Item_aux)