diff options
| author | herbelin | 2003-07-24 15:24:12 +0000 |
|---|---|---|
| committer | herbelin | 2003-07-24 15:24:12 +0000 |
| commit | 8235d977028498a99d8c3c097f6fd2094298f3ff (patch) | |
| tree | 3fc95831bdf0bf7bdd2e008301b7da54ebee4288 | |
| parent | 59ba14578dd726afc8ae5ab4afa1972e2282e564 (diff) | |
Bug globalisation Grammar (suite)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4246 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 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" |