X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcontent_pres%2FboxPp.ml;h=7a2fa9912f31144cb135e72441fe03f7b1bfd6fc;hb=a3c9916401dbaac8e59948e878eec0f37e72bf4a;hp=ddb9d3b82af51960b832880e0ee90406181a92d2;hpb=9a0e4f3be9f70662f18d2d3b6dd60ae79fba565b;p=helm.git

diff --git a/helm/ocaml/content_pres/boxPp.ml b/helm/ocaml/content_pres/boxPp.ml
index ddb9d3b82..7a2fa9912 100644
--- a/helm/ocaml/content_pres/boxPp.ml
+++ b/helm/ocaml/content_pres/boxPp.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 module Pres = Mpresentation
 
 (** {2 Pretty printing from BoxML to strings} *)
@@ -130,7 +132,7 @@ let render_to_strings size markup =
           let tl_renderings =
             List.map
               (fun f ->
-                let indent_header = if indent then string_indent else "" in
+(*                 let indent_header = if indent then string_indent else "" in *)
                 snd (indent_children (f children_size)))
               tl_fs
           in