X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fxpath%2Fast.ml;h=9a0d4d72811b489c697be0aa7adb1357b4f4ef7b;hp=c83dd919e4c41f27b48cad20530ebccb7f41c06b;hb=fa7e819743a4a6d008ec086dfdeb2e30df2da701;hpb=82fa70675272c579a642c6e62c8fbf28a1bba56c

diff --git a/src/xpath/ast.ml b/src/xpath/ast.ml
index c83dd91..9a0d4d7 100644
--- a/src/xpath/ast.ml
+++ b/src/xpath/ast.ml
@@ -13,11 +13,6 @@
 (*                                                                     *)
 (***********************************************************************)
 
-(*
-  Time-stamp: <Last modified on 2013-04-18 11:22:00 CEST by Kim Nguyen>
-*)
-
-
 type path = single_path list
 and single_path = Absolute of step list | Relative of step list
 and step = axis * test * expr list
@@ -133,14 +128,14 @@ and print_test fmt (ts,kind) =
     | Element | Attribute ->
         pp fmt "%s" begin
           if ts == star then "*"
-          else QName.to_string (QNameSet.choose ts)
+          else QName.to_string (QName.remove_prefix (QNameSet.choose ts))
         end
     | Comment -> pp fmt "%s" "comment()"
     | ProcessingInstruction ->
         pp fmt "processing-instruction(%s)"
           begin
             if ts == star then ""
-            else "'" ^ (QName.to_string (QNameSet.choose ts)) ^ "'"
+            else "\"" ^ (QName.to_string (QName.remove_prefix (QNameSet.choose ts))) ^ "\""
           end
     | Node -> pp fmt "%s" "node()"
     | Document -> pp fmt "%s" "<DOCUMENT>"