diff options
Diffstat (limited to 'dev/top_printers.ml')
-rw-r--r-- | dev/top_printers.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 1a2bf3c34..e65e41847 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -289,7 +289,7 @@ let print_pure_constr csr = print_string "Fix("; print_int i; print_string ")"; print_cut(); open_vbox 0; - let rec print_fix () = + let print_fix () = for k = 0 to (Array.length tl) - 1 do open_vbox 0; name_display lna.(k); print_string "/"; @@ -303,7 +303,7 @@ let print_pure_constr csr = print_string "CoFix("; print_int i; print_string ")"; print_cut(); open_vbox 0; - let rec print_fix () = + let print_fix () = for k = 0 to (Array.length tl) - 1 do open_vbox 1; name_display lna.(k); print_cut(); print_string ":"; |