From a38fbefca61f3392efe0ba98adfbae138022cce4 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 12 Jun 2011 22:27:20 +0000
Subject: Rather quick hack to avoid using notations involving "Type" when
 Universes Printing is on. Code of Topconstr.match_ becomes a bit cluttered,
 used abbreviation to shorten it (just) a little.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14189 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/constrextern.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'interp/constrextern.ml')

diff --git a/interp/constrextern.ml b/interp/constrextern.ml
index 231bf22f29..91ae112855 100644
--- a/interp/constrextern.ml
+++ b/interp/constrextern.ml
@@ -778,7 +778,8 @@ and extern_symbol (tmp_scope,scopes as allscopes) vars t = function
           | _, None -> t, [], [], []
           | _ -> raise No_match in
 	(* Try matching ... *)
-	let terms,termlists,binders = match_aconstr t pat in
+	let terms,termlists,binders =
+          match_aconstr !print_universes t pat in
 	(* Try availability of interpretation ... *)
         let e =
           match keyrule with
-- 
cgit v1.2.3