this repo has no description
Fix lookup of units
+4
-2
+4
-2
lib/worker.ml
+4
-2
lib/worker.ml
···
1
1
open Js_of_ocaml_toplevel
2
2
open Js_top_worker_rpc
3
3
4
+
let log fmt = Format.kasprintf (fun s -> Js_of_ocaml.(Firebug.console##log (Js.string s))) fmt
5
+
4
6
(* OCamlorg toplevel in a web worker
5
7
6
8
This communicates with the toplevel code via the API defined in
···
178
180
let open Js_of_ocaml in
179
181
try
180
182
Clflags.no_check_prims := true;
181
-
let cmi_files = List.map (fun cmi -> (Filename.basename cmi, cmi)) cmis in
183
+
let cmi_files = List.map (fun cmi -> (Filename.basename cmi |> Filename.chop_extension, cmi)) cmis in
182
184
let old_loader = !Persistent_env.Persistent_signature.load in
183
185
(Persistent_env.Persistent_signature.load :=
184
186
fun ~unit_name ->
185
187
let result =
186
188
Option.bind
187
-
(List.assoc_opt (String.lowercase_ascii unit_name) cmi_files)
189
+
(List.assoc_opt (String.uncapitalize_ascii unit_name) cmi_files)
188
190
sync_get
189
191
in
190
192
match result with