X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=tree.ml;h=a1ddcac9c5f76de740714db993fad731843fd2c7;hb=ede0fe9faff0bffe5f9f010d8942a057186d1ce1;hp=24fca560141675eb4547e2ba60969adec31352ed;hpb=cfd834dcdee634387ad2354f1382eeb9d816be45;p=SXSI%2Fxpathcomp.git

diff --git a/tree.ml b/tree.ml
index 24fca56..a1ddcac 100644
--- a/tree.ml
+++ b/tree.ml
@@ -481,8 +481,6 @@ let array_find a i j =
 	  then 
 	    begin
  	      let tid =  tree_my_text tree.doc t in
-	      let _ = Printf.eprintf "my_text %i returned %i\n%!" (inode t) (inode tid)
-	      in
 	      output_string outc (text_get_cached_text tree.doc tid);
 	      if print_right
 	      then loop (next_sibling tree t);
@@ -525,8 +523,6 @@ let array_find a i j =
       let attname = String.sub s 3 ((String.length s) -3) in
       let fsa = first_child tree a in
       let tid =  tree_my_text tree.doc fsa in
-      let _ = Printf.eprintf "my_text %i returned %i\n%!" (inode fsa) (inode tid)
-      in
 	output_char outc ' ';
 	output_string outc attname;
 	output_string outc "=\"";