diff options
| author | herbelin | 2010-04-05 22:46:16 +0000 |
|---|---|---|
| committer | herbelin | 2010-04-05 22:46:16 +0000 |
| commit | 3ace40d1b3230f34e7d6a1961eb1fc1f972f57c9 (patch) | |
| tree | ed8cfe0765ad4ed4733a1f2a5bb5977e7220ecee /interp | |
| parent | 6daca3d668e59754ef60a33f49cb23d94baec4fb (diff) | |
Improving compatibility between 8.2 and 8.3
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12904 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index eb1d1985ff..dac435e7fd 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -413,7 +413,8 @@ let intern_var (env,unbound_vars,_,_ as genv) (ltacvars,vars2,vars3,(_,impls)) l let find_appl_head_data = function | RRef (_,ref) as x -> x,implicits_of_global ref,find_arguments_scope ref,[] - | RApp (_,RRef (_,ref),l) as x when l <> [] -> + | RApp (_,RRef (_,ref),l) as x + when l <> [] & Flags.version_strictly_greater Flags.V8_2 -> let n = List.length l in x,list_skipn_at_least n (implicits_of_global ref), list_skipn_at_least n (find_arguments_scope ref),[] |