X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Ftree.ml;h=97a850c4ec45d08aace270738202d78b4ad0d43b;hb=0158dd0bd369b50f3e784b3f4b6122ea4cbde822;hp=27ceed6492ad3ba103dac086d7b68115dcfa22c3;hpb=4b52da1a20a4fe031930bb96d2ca46bec06dc529;p=SXSI%2Fxpathcomp.git

diff --git a/src/tree.ml b/src/tree.ml
index 27ceed6..97a850c 100644
--- a/src/tree.ml
+++ b/src/tree.ml
@@ -119,6 +119,9 @@ let prev_sibling t n = tree_prev_sibling t.doc n
 external tree_tagged_descendant : tree -> [`Tree ] Node.t -> Tag.t -> [`Tree ] Node.t = "caml_xml_tree_tagged_descendant" "noalloc"
 let tagged_descendant t n tag = tree_tagged_descendant t.doc n tag
 
+external tree_tagged_next : tree -> [`Tree ] Node.t -> Tag.t -> [`Tree ] Node.t = "caml_xml_tree_tagged_next" "noalloc"
+let tagged_next t n tag = tree_tagged_next t.doc n tag
+
 external tree_select_descendant : tree -> [`Tree ] Node.t -> unordered_set -> [`Tree] Node.t = "caml_xml_tree_select_descendant" "noalloc"
 let select_descendant t n tag_set = tree_select_descendant t.doc n tag_set