TAG(tag))));
}
-NoAlloc extern "C" value caml_xml_tree_subtree_elements(value tree, value node,
- value atts)
+NoAlloc extern "C" value caml_xml_tree_subtree_elements(value tree,
+ value node)
{
- return (Val_int(XMLTREE(tree)->subtree_elements(TREENODE(node),
- TAGLIST(atts))));
+ return (Val_int(XMLTREE(tree)->subtree_elements(TREENODE(node))));
}
NoAlloc extern "C" value caml_xml_tree_is_leaf(value tree, value node){