simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-07 03:35:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix the same uglyness in Set.print

Browse source
This commit is contained in:
Simon Cruanes 2015-10-26 17:22:56 +01:00
parent 5a2c7f3f60
commit 59835f8ef2
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/core/CCSet.ml
View file

@ -77,9 +77,11 @@ module Make(O : Map.OrderedType) = struct
let first = ref true in
iter
(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_x fmt x;
Format.pp_print_cut fmt ()
) m;
Format.pp_print_string fmt stop
end