diff options
| author | herbelin | 2003-07-23 13:48:11 +0000 |
|---|---|---|
| committer | herbelin | 2003-07-23 13:48:11 +0000 |
| commit | 7c532ca7a768fdac825a19700e7cd4bf27c56972 (patch) | |
| tree | e3e9f15b0a7e6425044dbb14c9c82890d48b0f90 | |
| parent | a9b1303f4bb75e7eafbd22cb8ff46f246834d6b2 (diff) | |
Bug globalisation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4242 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/metasyntax.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index 61a84e6f0c..e32e158250 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -48,7 +48,8 @@ let globalize_ref vars ref = let globalize_ref_term vars ref = match Constrintern.interp_reference (vars,[]) ref with - | RRef (loc,a) -> CRef (Constrextern.extern_reference loc Idset.empty a) + | RRef (loc,VarRef a) -> CRef (Ident (loc,a)) + | RRef (loc,a) -> CRef (Qualid (loc,qualid_of_sp (Nametab.sp_of_global a))) | RVar (loc,x) -> CRef (Ident (loc,x)) | c -> Constrextern.extern_rawconstr Idset.empty c |