diff options
author | 2013-07-05 01:49:27 +0000 | |
---|---|---|
committer | 2013-07-05 01:49:27 +0000 | |
commit | a778b72e3ebfbe784fbe55ee5e124ba3f66cfb10 (patch) | |
tree | 45ccc4afcf8edc5aed09d76b45c826a1e779af66 /tactics/tacsubst.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/tacsubst.ml')
-rw-r--r-- | tactics/tacsubst.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/tacsubst.ml b/tactics/tacsubst.ml index 11b747e72..80a563322 100644 --- a/tactics/tacsubst.ml +++ b/tactics/tacsubst.ml @@ -317,8 +317,7 @@ and subst_genarg subst (x:glob_generic_argument) = | BindingsArgType -> in_gen (glbwit wit_bindings) (subst_bindings subst (out_gen (glbwit wit_bindings) x)) - | List0ArgType _ -> app_list0 (subst_genarg subst) x - | List1ArgType _ -> app_list1 (subst_genarg subst) x + | ListArgType _ -> app_list (subst_genarg subst) x | OptArgType _ -> app_opt (subst_genarg subst) x | PairArgType _ -> app_pair (subst_genarg subst) (subst_genarg subst) x | ExtraArgType s -> |