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

fix CCFormat.seq combinator

Browse source
This commit is contained in:
Simon Cruanes 2015-02-02 15:28:18 +01:00
parent 21c90a209d
commit ceca7b6343
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/core/CCFormat.ml
View file

@ -82,7 +82,10 @@ let seq ?(start="[") ?(stop="]") ?(sep=", ") pp fmt seq =
Format.pp_print_string fmt start; Format.pp_print_string fmt start;
let first = ref true in let first = ref true in
seq (fun x -> seq (fun x ->
(if !first then first := false else Format.pp_print_string fmt sep); (if !first then first := false else (
Format.pp_print_string fmt sep;
Format.pp_print_cut fmt ();
));
pp fmt x); pp fmt x);
Format.pp_print_string fmt stop Format.pp_print_string fmt stop