diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-05-26 13:30:38 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-05-26 13:33:06 +0200 |
| commit | 525094414bf74445f930e170a823a49107726f6f (patch) | |
| tree | b15177a6580ff221dbe9d52442b59b1a271155b8 | |
| parent | 1f0284e591c7315149509200239fc9c821c2c9dd (diff) | |
Fixing commit 9cef834. The parsing rules were generating an empty list,
conflicting with the previous behaviour of 'eexists'.
| -rw-r--r-- | parsing/g_tactic.ml4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 348722c84..7b79d7882 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -310,7 +310,7 @@ GEXTEND Gram | bl = LIST1 constr -> ImplicitBindings bl ] ] ; opt_bindings: - [ [ bl = bindings -> bl | -> NoBindings ] ] + [ [ bl = LIST1 bindings SEP "," -> bl | -> [NoBindings] ] ] ; constr_with_bindings: [ [ c = constr; l = with_bindings -> (c, l) ] ] @@ -628,8 +628,8 @@ GEXTEND Gram (* Constructors *) | IDENT "split"; bl = with_bindings -> TacSplit (false,false,[bl]) | IDENT "esplit"; bl = with_bindings -> TacSplit (true,false,[bl]) - | "exists"; bll = LIST0 bindings SEP "," -> TacSplit (false,true,bll) - | IDENT "eexists"; bll = LIST0 bindings SEP "," -> + | "exists"; bll = opt_bindings -> TacSplit (false,true,bll) + | IDENT "eexists"; bll = opt_bindings -> TacSplit (true,true,bll) | IDENT "constructor"; n = nat_or_var; l = with_bindings -> TacConstructor (false,n,l) |