Removed debugg printing from main

[SXSI/xpathcomp.git] / tree.ml

diff --git a/tree.ml b/tree.ml
index 24fca56..a1ddcac 100644 (file)
--- 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 "=\"";