Misc: cleanup

Author: hhugo

toplevel/examples/lwt_toplevel/toplevel.ml

@@ -112,16 +112,17 @@ module Version = struct
 end
 
 let setup_toplevel () =
+  Clflags.debug := true;
   JsooTop.initialize ();
   Sys.interactive := false;
   if Version.compare Version.current [ 4; 07 ] >= 0 then exec' "open Stdlib";
   exec'
     "module Lwt_main = struct\n\
-    \             let run t = match Lwt.state t with\n\
-    \               | Lwt.Return x -> x\n\
-    \               | Lwt.Fail e -> raise e\n\
-    \               | Lwt.Sleep -> failwith \"Lwt_main.run: thread didn't return\"\n\
-    \            end";
+    \  let run t = match Lwt.state t with\n\
+    \    | Lwt.Return x -> x\n\
+    \    | Lwt.Fail e -> raise e\n\
+    \    | Lwt.Sleep -> failwith \"Lwt_main.run: thread didn't return\"\n\
+    \ end";
   let header1 = Printf.sprintf "        %s version %%s" compiler_name in
   let header2 =
     Printf.sprintf "     Compiled with Js_of_ocaml version %s" Sys_js.js_of_ocaml_version