From cea756c7adc49891004bfe455628010eb7a28bc9 Mon Sep 17 00:00:00 2001 From: kim Date: Mon, 23 Mar 2009 05:53:51 +0000 Subject: [PATCH] fixed typo in print_xml_fast git-svn-id: svn+ssh://idea.nguyen.vg/svn/sxsi/trunk/xpathcomp@270 3cdefd35-fc62-479d-8e8d-bae585ffb9ca --- main.ml | 2 +- tree.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 "\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 -- 2.17.1