diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-07-05 01:49:27 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-07-05 01:49:27 +0000 |
| commit | a778b72e3ebfbe784fbe55ee5e124ba3f66cfb10 (patch) | |
| tree | 45ccc4afcf8edc5aed09d76b45c826a1e779af66 /tactics/tacintern.ml | |
| parent | 556c2ce6f1b09d09484cc83f6ada213496add45b (diff) | |
Expurgating the useless difference between List0 and List1 at the
level of generic arguments. This only matters at parsing time.
TODO: the current status is not satisfactory enough, as rule
emptyness is still decided w.r.t. generic arguments. This should be
done on a grammar entry basis instead.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16617 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacintern.ml')
| -rw-r--r-- | tactics/tacintern.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/tacintern.ml b/tactics/tacintern.ml index 1a63ca2da..d176c516f 100644 --- a/tactics/tacintern.ml +++ b/tactics/tacintern.ml @@ -789,8 +789,7 @@ and intern_genarg ist x = | BindingsArgType -> in_gen (glbwit wit_bindings) (intern_bindings ist (out_gen (rawwit wit_bindings) x)) - | List0ArgType _ -> app_list0 (intern_genarg ist) x - | List1ArgType _ -> app_list1 (intern_genarg ist) x + | ListArgType _ -> app_list (intern_genarg ist) x | OptArgType _ -> app_opt (intern_genarg ist) x | PairArgType _ -> app_pair (intern_genarg ist) (intern_genarg ist) x | ExtraArgType s -> |