X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fquery_tree.ml;fp=src%2Fquery_tree.ml;h=1599c4c7f19b59d39e90ac26b71d0f2fe29d93a8;hp=018036bf82cb63ae84e5ebcd58d9252d6645353e;hb=cfaff4165f266dc2273989c9a62f3fd31c1f57ec;hpb=8fbdb25170c3376272f7eec7ef2be8fc008d11f7 diff --git a/src/query_tree.ml b/src/query_tree.ml index 018036b..1599c4c 100644 --- a/src/query_tree.ml +++ b/src/query_tree.ml @@ -63,7 +63,7 @@ and compile_step_list p = let open Xpath.Ast in match a with Self -> Self - | Attribute -> assert false + | Attribute -> Parent | Child -> Parent | Descendant b -> if not b then (Ancestor false)