From ceca7b634386a34e8cb7c5ad734837a1d8b4bbc5 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 2 Feb 2015 15:28:18 +0100
Subject: [PATCH] fix CCFormat.seq combinator

---
 src/core/CCFormat.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/core/CCFormat.ml b/src/core/CCFormat.ml
index 5bff0275..0af423c3 100644
--- a/src/core/CCFormat.ml
+++ b/src/core/CCFormat.ml
@@ -82,7 +82,10 @@ let seq ?(start="[") ?(stop="]") ?(sep=", ") pp fmt seq =
   Format.pp_print_string fmt start;
   let first = ref true in
   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);
   Format.pp_print_string fmt stop