diff options
| author | Matthieu Sozeau | 2014-07-31 14:34:00 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-07-31 14:35:07 +0200 |
| commit | fa46f6a94a59255da293247ccda9b824bd300dcd (patch) | |
| tree | 72bad22d9282fba4f04abd81f21fd0661153bcf1 /interp | |
| parent | 4bd65a91f3b6d3ca6c3cad75fc500d8c9d154936 (diff) | |
Finish fixes on notations and primitive projections, add test-suite files for closed bugs
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 5d77c46694..195bd31fe0 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -761,7 +761,8 @@ let intern_qualid loc qid intern env lvar us args = let terms = make_subst ids (List.map fst args1) in let subst = (terms, Id.Map.empty, Id.Map.empty) in let infos = (Id.Map.empty, env) in - subst_aconstr_in_glob_constr loc intern lvar subst infos c, false, args2 + let projapp = match c with NRef _ -> true | _ -> false in + subst_aconstr_in_glob_constr loc intern lvar subst infos c, projapp, args2 (* Rule out section vars since these should have been found by intern_var *) let intern_non_secvar_qualid loc qid intern env lvar us args = |