simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 11:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

better pp_seq

Browse source
This commit is contained in:
Simon Cruanes 2013-05-26 22:35:54 +02:00
parent b946b7157b
commit fa18a7ba83
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
sequence.ml
View file

@ -683,7 +683,10 @@ let pp_seq ?(sep=", ") pp_elt formatter seq =
let first = ref true in
iter
(fun x ->
(if !first then first := false else Format.pp_print_string formatter sep);
pp_elt formatter x;
Format.pp_print_cut formatter ())
(if !first then first := false
else begin
Format.pp_print_string formatter sep;
Format.pp_print_cut formatter ();
end);
pp_elt formatter x)
seq