}
extern "C" CAMLprim value caml_xml_tree_next_element(value tree, value id){
- return(Val_int (XMLTREE(tree)->NextSibling(TREENODEVAL(id))));
+ return(Val_int (XMLTREE(tree)->NextElement(TREENODEVAL(id))));
}
extern "C" CAMLprim value caml_xml_tree_tagged_sibling(value tree, value id, value tag){