Remove dead code.

[tatoo.git] / src / utils / pretty.ml

diff --git a/src/utils/pretty.ml b/src/utils/pretty.ml
index c54d0ed..a7434b1 100644 (file)
--- a/src/utils/pretty.ml
+++ b/src/utils/pretty.ml
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-01-30 19:08:11 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-04 18:46:09 CET by Kim Nguyen>
 *)
 
 open Format
@@ -110,14 +110,8 @@ let overline s = combine_all combining_overbar s
 let underline s = combine_all combining_underbar s
 let strike s = combine_all combining_stroke s
 
-let mk_repeater c =
-  let mk_str i = String.make i c in
-  let _table = Array.init 16 mk_str in
-     fun i -> try
-      if i < 16 then _table.(i) else mk_str i
-    with e -> print_int i; print_newline(); raise e
-let padding = mk_repeater ' '
-let line = mk_repeater '_'
+let padding i = String.make i ' '
+let line i = String.make i '_'