fixed typo in print_xml_fast

git-svn-id: svn+ssh://idea.nguyen.vg/svn/sxsi/trunk/xpathcomp@270 3cdefd35-fc62-479d-8e8d-bae585ffb9ca

diff --git a/main.ml b/main.ml
index a7250a0..aed4ebb 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -75,7 +75,7 @@ let main v query output =
                      time( fun () ->
                              let oc = open_out f in
                                output_string oc "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";                                
-                               TS.iter (fun t -> output_string oc "----------\n";
+                               TS.iter (fun t -> 
                                           Tree.print_xml_fast oc t;
                                           output_char oc '\n') result) ();
              end;

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