[r2006-03-26 15:43:33 by afrisch] Accept binding prefix to empty string

Original author: afrisch Date: 2006-03-26 15:43:33+00:00

[r2006-03-26 15:43:33 by afrisch] Accept binding prefix to empty string
Original author: afrisch Date: 2006-03-26 15:43:33+00:00
83b3d115 · Pietro Abate · db21125e · 83b3d115
Commit 83b3d115 authored Jul 10, 2007 by Pietro Abate
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

misc/ns.ml misc/ns.ml +1 -1

No files found.
--- a/misc/ns.ml
+++ b/misc/ns.ml
@@ -95,7 +95,7 @@ module Printer = struct
    H.add p.ns_to_prefix empty (ref (Set empty_str));
    Table.iter 
      (fun pr ns ->
-	 if (U.get_str pr <> "") then
+	 if (U.get_str pr <> "") && not (Uri.equal empty ns) then
 	   match get_prefix p ns  with
 	     | { contents = Hint l } as r -> 
 		 p.hints <- pr::p.hints;