Permalink
Browse files

Fix again problem with caml_js_meth_call

  • Loading branch information...
1 parent f7e63ec commit 69e385b7b471b38056c5800ee2237d063749e9f5 @lefessan lefessan committed Dec 5, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 js_of_ocaml/compiler/js_parse.ml
@@ -1777,7 +1777,8 @@ let from_channel ~paths ic =
let globals = make_globals (Array.length init_data) init_data primitives in
if !is_toplevel then begin
Tbl.iter (fun _ n -> globals.is_exported.(n) <- true) symbols.num_tbl;
- Primitives.mark_used "caml_string_greaterthan"
+ List.iter Primitives.mark_used
+ [ "caml_string_greaterthan"; "caml_js_meth_call" ]
end;
fix_min_max_int code;

0 comments on commit 69e385b

Please sign in to comment.