X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Ftree.ml;h=f502c7e760c7641f039adf480643dd6c7cbfbe77;hb=6b66008811639324be623a42037b60e02056772c;hp=4d0140384a6b354d1413c839286ce65e9288d100;hpb=ddf595a3f6b7b5c2aa2e697257d760b2ac319dd2;p=tatoo.git

diff --git a/src/tree.ml b/src/tree.ml
index 4d01403..f502c7e 100644
--- a/src/tree.ml
+++ b/src/tree.ml
@@ -13,6 +13,10 @@
 (*                                                                     *)
 (***********************************************************************)
 
+(*
+  Time-stamp: <Last modified on 2013-01-30 19:06:51 CET by Kim Nguyen>
+*)
+
 type node = {
   tag : QName.t;
   preorder : int;
@@ -152,8 +156,8 @@ struct
       start_element_handler parser_ ctx text_string [];
       let node = top ctx in
       node.data <- s;
-      end_element_handler parser_ ctx text_string;
-      Format.eprintf "DEBUG: %a\n\n" debug_ctx ctx
+      end_element_handler parser_ ctx text_string
+
 
 
   let character_data_handler parser_ ctx text =