diff options
| -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 |