Skip to content
Browse files

[fix] compiler, syntax: expr in letin can be another block (inner)

  • Loading branch information...
1 parent 34dba1f commit 7769dc1c41d3d90cf76063b72c2ee5e82989f365 @BourgerieQuentin BourgerieQuentin committed Feb 7, 2012
Showing with 4 additions and 2 deletions.
  1. +4 −2 opalang/js_syntax/opa_parser.trx
View
6 opalang/js_syntax/opa_parser.trx
@@ -546,13 +546,15 @@ binding_ident <-
/ binding_simple
/ binding_module
+binding_expr <- (=deco(block_inner))
+
binding <-
- / Opa_lexer.REC spacing (=list1(binding_pattern_rec, Opa_lexer.AND)):binds expr:expr
+ / Opa_lexer.REC spacing (=list1(binding_pattern_rec, Opa_lexer.AND)):binds binding_expr:expr
{{
let binds = List.concat_map pat_in_to_simple_bindings binds in
LetIn (true, binds, expr)
}}
- / (=list1(binding_pattern, Opa_lexer.AND)):binds expr:expr
+ / (=list1(binding_pattern, Opa_lexer.AND)):binds binding_expr:expr
{{
let binds = List.concat_map pat_in_to_simple_bindings binds in
LetIn (true, binds, expr)

0 comments on commit 7769dc1

Please sign in to comment.
Something went wrong with that request. Please try again.