[enhance] compiler, syntax: Record pattern accept field identifier (i…

…ncluding keywords)
MLstate · May 23, 2012 · 434c057 · 434c057
1 parent 9964bf5
commit 434c057
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/opalang/js_syntax/opa_parser.trx b/opalang/js_syntax/opa_parser.trx
@@ -607,7 +607,7 @@ pattern_row <- (=exact_symbol("...")) {{ () }}
 
 pattern_field <-
   (=type_maybe(
-     tilda:tilda deco_ml_identifier:i (colon pattern:p {{ p }})?:p
+     tilda:tilda deco_field_identifier:i (colon pattern:p {{ p }})?:p
      {{ function t ->
           let ident,label = i in
           let p =