diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 4fbf57e07a..d5de74f8ab 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -830,7 +830,7 @@ and extern_symbol (tmp_scope,scopes as allscopes) vars t = function let (t,args) = match t,n with | RApp (_,f,args), Some n when List.length args > n -> let args1, args2 = list_chop n args in - RApp (dummy_loc,f,args1), args2 + (if n = 0 then f else RApp (dummy_loc,f,args1)), args2 | _ -> t,[] in (* Try matching ... *) let subst = match_aconstr t pat in |