changes for compiling, OJO: Makefile in xpathcomp modified

[SXSI/xpathcomp.git] / tree.ml

diff --git a/tree.ml b/tree.ml
index 4cf4047..c968f10 100644 (file)
--- a/tree.ml
+++ b/tree.ml
@@ -641,7 +641,7 @@ let text_next t root =
       | Nil -> ()    
       | Text(i,n) -> output_string outc (text_get_text t.doc i);
          if print_right
-         then loop (left t)
+         then loop (right t)
       | Node (n) -> 
          let tg = Tag.to_string (tag t) in
          let l = left t