From fa46f6a94a59255da293247ccda9b824bd300dcd Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Thu, 31 Jul 2014 14:34:00 +0200
Subject: Finish fixes on notations and primitive projections, add test-suite
 files for closed bugs

---
 interp/constrintern.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'interp')

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 =
-- 
cgit v1.2.3