diff options
| author | barras | 2001-12-18 11:15:16 +0000 |
|---|---|---|
| committer | barras | 2001-12-18 11:15:16 +0000 |
| commit | 62bc7aeb8a737830b631158a4d181445fe97b26f (patch) | |
| tree | 7d8af9588495d49c83c1ff9940b4d54b9a88c14b | |
| parent | 8bb6ef3137ce036fdb6f0f6b3debf4a7e4e30f09 (diff) | |
parsing des branches de Cases au niveau lconstr (au lieu de constr)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2306 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 3ce0e7b4a8..5fb374d68a 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 = constr -> + [ [ lhs = ne_pattern_list; "=>"; rhs = lconstr -> <:ast< (EQN $rhs ($LIST $lhs)) >> ] ] ; ne_eqn_list: |