fix

ocsigen · Jan 26, 2025 · 4c74451 · 4c74451
1 parent b32d449
commit 4c74451
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/toplevel/test/test_toplevel.ml b/toplevel/test/test_toplevel.ml
@@ -3,7 +3,16 @@ let () = Js_of_ocaml_toplevel.JsooTop.initialize ()
 let fmt = Format.std_formatter
 
 let () =
-  Js_of_ocaml.Sys_js.set_channel_flusher stderr (fun str -> Printf.printf "<ERR>: %s" str)
+  Js_of_ocaml.Sys_js.set_channel_flusher stderr (fun str ->
+      let rec iter = function
+        | [] -> ()
+        | [ "" ] -> ()
+        | [ x ] -> Printf.printf "<ERR>: %s" x
+        | x :: xs ->
+            Printf.printf "<ERR>: %s\n" x;
+            iter xs
+      in
+      iter (String.split_on_char '\n' str))
 
 let () =
   Js_of_ocaml_toplevel.JsooTop.execute