From 8235d977028498a99d8c3c097f6fd2094298f3ff Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 24 Jul 2003 15:24:12 +0000
Subject: Bug globalisation Grammar (suite)

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

diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml
index e32e158250..1f9a08d980 100644
--- a/toplevel/metasyntax.ml
+++ b/toplevel/metasyntax.ml
@@ -42,7 +42,8 @@ let constr_parser_with_glob = Pcoq.map_entry constr_to_ast Constr.constr
 
 let globalize_ref vars ref =
   match Constrintern.interp_reference (vars,[]) ref with
-  | RRef (loc,a) -> Constrextern.extern_reference loc Idset.empty a
+  | RRef (loc,VarRef a) -> Ident (loc,a)
+  | RRef (loc,a) -> Qualid (loc,qualid_of_sp (Nametab.sp_of_global a))
   | RVar (loc,x) -> Ident (loc,x)
   | _ -> anomaly "globalize_ref: not a reference"
 
-- 
cgit v1.2.3