X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fxpath%2Fast.ml;h=21ab5df0af71d2943c68a86a9af3937831a1a832;hp=9a0d4d72811b489c697be0aa7adb1357b4f4ef7b;hb=4b5e86cc5fa3e62a1cb7d29acf79ffb314194efa;hpb=524e7cad6802c1c32160d69728889cfe734753a4

diff --git a/src/xpath/ast.ml b/src/xpath/ast.ml
index 9a0d4d7..21ab5df 100644
--- a/src/xpath/ast.ml
+++ b/src/xpath/ast.ml
@@ -127,8 +127,9 @@ and print_test fmt (ts,kind) =
       Text -> pp fmt "%s" "text()"
     | Element | Attribute ->
         pp fmt "%s" begin
-          if ts == star then "*"
-          else QName.to_string (QName.remove_prefix (QNameSet.choose ts))
+          if QNameSet.is_finite ts then
+            QName.to_string (QName.remove_prefix (QNameSet.choose ts))
+          else "*"
         end
     | Comment -> pp fmt "%s" "comment()"
     | ProcessingInstruction ->
@@ -181,4 +182,3 @@ let invert_axis = function
 | Preceding -> Following
 | Following -> Preceding
 ;;
-