diff options
| -rw-r--r-- | parsing/g_cases.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_cases.ml4 b/parsing/g_cases.ml4 index 5fb374d68a..48638a4fef 100644 --- a/parsing/g_cases.ml4 +++ b/parsing/g_cases.ml4 @@ -34,7 +34,7 @@ GEXTEND Gram | c1 = pattern -> [c1] ] ] ; equation: - [ [ lhs = ne_pattern_list; "=>"; rhs = lconstr -> + [ [ lhs = ne_pattern_list; "=>"; rhs = constr9 -> <:ast< (EQN $rhs ($LIST $lhs)) >> ] ] ; ne_eqn_list: |