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

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 let first = ref true in
iter iter
(fun x -> (fun x ->
if !first then first := false else Format.pp_print_string fmt sep; if !first then first := false else (
pp_x fmt x; Format.pp_print_string fmt sep;
Format.pp_print_cut fmt () Format.pp_print_cut fmt ()
);
pp_x fmt x;
) m; ) m;
Format.pp_print_string fmt stop Format.pp_print_string fmt stop
end end