Do not let indentation grow without bound when pretty-printing the parse tree.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13407 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2013-03-18 20:15:21 +00:00 · 2013-03-18 20:15:21 +00:00 · d78a0b0bc3
parent 7b31f54095
commit d78a0b0bc3
1 changed files with 1 additions and 1 deletions
--- a/parsing/printast.ml
+++ b/parsing/printast.ml
@ -98,7 +98,7 @@ let fmt_private_flag f x =
 ;;

 let line i f s (*...*) =
-  fprintf f "%s" (String.make (2*i) ' ');
+  fprintf f "%s" (String.make ((2*i) mod 72) ' ');
  fprintf f s (*...*)
 ;;