this repo has no description
Update to js_of_ocaml 6
+8
-6
+1
-1
example/example.ml
+1
-1
example/example.ml
+2
lib/impl.ml
+2
lib/impl.ml
···
405
405
let phr = Parse.toplevel_phrase l in
406
406
Typecore.reset_delayed_checks ();
407
407
Env.reset_cache_toplevel ();
408
+
Js_of_ocaml_compiler.Config.set_target `JavaScript;
409
+
Js_of_ocaml_compiler.Config.set_effects_backend `Cps;
408
410
let oldenv = !Toploop.toplevel_env in
409
411
(* let oldenv = Compmisc.initial_env() in *)
410
412
let phr = JsooTopPpx.preprocess_phrase phr in
+5
-5
lib/worker.ml
+5
-5
lib/worker.ml
···
6
6
7
7
let log fmt =
8
8
Format.kasprintf
9
-
(fun s -> Js_of_ocaml.(Firebug.console##log (Js.string s)))
9
+
(fun s -> Js_of_ocaml.(Console.console##log (Js.string s)))
10
10
fmt
11
11
12
12
let sync_get url =
···
20
20
Js.Opt.case
21
21
(File.CoerceTo.arrayBuffer x##.response)
22
22
(fun () ->
23
-
Firebug.console##log (Js.string "Failed to receive file");
23
+
Console.console##log (Js.string "Failed to receive file");
24
24
None)
25
25
(fun b -> Some (Typed_array.String.of_arrayBuffer b))
26
26
| _ -> None
···
93
93
let open Js_of_ocaml in
94
94
let open M in
95
95
try
96
-
Firebug.console##log (Js.string "Starting worker...");
96
+
Console.console##log (Js.string "Starting worker...");
97
97
98
98
Logs.set_reporter (Logs_browser.console_reporter ());
99
99
Logs.set_level (Some Logs.Info);
···
107
107
Server.compile_js compile_js;
108
108
let rpc_fn = Impl.IdlM.server Server.implementation in
109
109
Js_of_ocaml.Worker.set_onmessage (fun x -> ignore (server rpc_fn x));
110
-
Firebug.console##log (Js.string "All finished")
110
+
Console.console##log (Js.string "All finished")
111
111
with e ->
112
-
Firebug.console##log (Js.string ("Exception: " ^ Printexc.to_string e))
112
+
Console.console##log (Js.string ("Exception: " ^ Printexc.to_string e))