diff options
| author | herbelin | 2005-11-21 09:17:07 +0000 |
|---|---|---|
| committer | herbelin | 2005-11-21 09:17:07 +0000 |
| commit | c076cea710f8c00a6c86056b4e0b52cbdae06d5f (patch) | |
| tree | 66e019803f8c119aa4ac16c82786796f7e0554d9 /parsing | |
| parent | 36a3e056ef351515033f81d54a5ad1f1d3641813 (diff) | |
Correction bug dé-globalisation syntactic def (cf coq-club 20/11/05)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7596 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/prettyp.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index 13d6a62b41..5092601fb2 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -203,8 +203,10 @@ let print_located_qualid ref = let (loc,qid) = qualid_of_reference ref in let module N = Nametab in let expand = function - | TrueGlobal ref -> Term ref, N.shortest_qualid_of_global Idset.empty ref - | SyntacticDef kn -> Syntactic kn, N.shortest_qualid_of_syndef kn in + | TrueGlobal ref -> + Term ref, N.shortest_qualid_of_global Idset.empty ref + | SyntacticDef kn -> + Syntactic kn, N.shortest_qualid_of_syndef Idset.empty kn in match List.map expand (N.extended_locate_all qid) with | [] -> let (dir,id) = repr_qualid qid in @@ -352,7 +354,7 @@ let print_constant_with_infos sp = let print_inductive sp = (print_mutual sp) let print_syntactic_def sep kn = - let qid = Nametab.shortest_qualid_of_syndef kn in + let qid = Nametab.shortest_qualid_of_syndef Idset.empty kn in let c = Syntax_def.search_syntactic_definition dummy_loc kn in (str (if !Options.v7 then "Syntactic Definition " else "Notation ") ++ pr_qualid qid ++ str sep ++ |