projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Simplify the automaton encoding a bit (remove redundant predicates in formulae).
[tatoo.git]
/
src
/
xpath
/
ast.ml
diff --git
a/src/xpath/ast.ml
b/src/xpath/ast.ml
index
21ab5df
..
5b322a4
100644
(file)
--- a/
src/xpath/ast.ml
+++ b/
src/xpath/ast.ml
@@
-128,7
+128,7
@@
and print_test fmt (ts,kind) =
| Element | Attribute ->
pp fmt "%s" begin
if QNameSet.is_finite ts then
| Element | Attribute ->
pp fmt "%s" begin
if QNameSet.is_finite ts then
- QName.to_string (QName
.remove_prefix (QNameSet.choose ts)
)
+ QName.to_string (QName
Set.choose ts
)
else "*"
end
| Comment -> pp fmt "%s" "comment()"
else "*"
end
| Comment -> pp fmt "%s" "comment()"
@@
-136,7
+136,7
@@
and print_test fmt (ts,kind) =
pp fmt "processing-instruction(%s)"
begin
if ts == star then ""
pp fmt "processing-instruction(%s)"
begin
if ts == star then ""
- else "\"" ^ (QName.to_string
(QName.remove_prefix (QNameSet.choose ts)
)) ^ "\""
+ else "\"" ^ (QName.to_string
(QNameSet.choose ts
)) ^ "\""
end
| Node -> pp fmt "%s" "node()"
| Document -> pp fmt "%s" "<DOCUMENT>"
end
| Node -> pp fmt "%s" "node()"
| Document -> pp fmt "%s" "<DOCUMENT>"