From 28f18a76de0e801649075be220ea823cf3c75982 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Tue, 3 Dec 2002 08:33:49 +0000
Subject: Pas de globalisation impérative pour les Grammar
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'toplevel/metasyntax.ml')

diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml
index 12a5903e6..265f4945d 100644
--- a/toplevel/metasyntax.ml
+++ b/toplevel/metasyntax.ml
@@ -46,8 +46,14 @@ let globalize_ref vars ref =
   | RVar (loc,x) -> Ident (loc,x)
   | _ -> anomaly "globalize_ref: not a reference"
 
+let globalize_ref_term vars ref =
+  match Constrintern.interp_reference vars ref with
+  | RRef (loc,a) -> CRef (Constrextern.extern_reference loc a)
+  | RVar (loc,x) -> CRef (Ident (loc,x))
+  | c -> Constrextern.extern_rawconstr c 
+
 let rec globalize_constr_expr vars = function
-  | CRef ref -> CRef (globalize_ref vars ref)
+  | CRef ref -> globalize_ref_term vars ref
   | CAppExpl (_,ref,l) ->
       let f = 
 	map_constr_expr_with_binders globalize_constr_expr
-- 
cgit v1.2.3