From: kim <kim@3cdefd35-fc62-479d-8e8d-bae585ffb9ca>
Date: Mon, 23 Mar 2009 05:53:51 +0000 (+0000)
Subject: fixed typo in print_xml_fast
X-Git-Url: http://git.nguyen.vg/gitweb/?a=commitdiff_plain;h=cea756c7adc49891004bfe455628010eb7a28bc9;hp=7489c542a7b7357a1c2bbc436d1d77c601833d3b;p=SXSI%2Fxpathcomp.git

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
--- 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
--- 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