From c076cea710f8c00a6c86056b4e0b52cbdae06d5f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 21 Nov 2005 09:17:07 +0000
Subject: 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
---
 parsing/prettyp.ml | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'parsing/prettyp.ml')

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 ++ 
-- 
cgit v1.2.3