Skip to content

Commit 274181d

Browse files
committed
Lib: add caml_list_to/of_js_array back to the c stubs, fix #1028
1 parent 4415aaa commit 274181d

File tree

2 files changed

+12
-0
lines changed

2 files changed

+12
-0
lines changed

lib/js_of_ocaml/js.ml

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -771,4 +771,8 @@ module For_compatibility_only = struct
771771
external caml_js_to_byte_string : js_string t -> string = "caml_js_to_byte_string"
772772

773773
external caml_js_to_string : js_string t -> string = "caml_js_to_string"
774+
775+
external caml_list_of_js_array : 'a js_array t -> 'a list = "caml_list_of_js_array"
776+
777+
external caml_list_to_js_array : 'a list -> 'a js_array t = "caml_list_to_js_array"
774778
end

lib/js_of_ocaml/js_of_ocaml_stubs.c

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -192,6 +192,14 @@ void caml_list_mount_point () {
192192
fprintf(stderr, "Unimplemented Javascript primitive caml_list_mount_point!\n");
193193
exit(1);
194194
}
195+
void caml_list_of_js_array () {
196+
fprintf(stderr, "Unimplemented Javascript primitive caml_list_of_js_array!\n");
197+
exit(1);
198+
}
199+
void caml_list_to_js_array () {
200+
fprintf(stderr, "Unimplemented Javascript primitive caml_list_to_js_array!\n");
201+
exit(1);
202+
}
195203
void caml_ml_set_channel_output () {
196204
fprintf(stderr, "Unimplemented Javascript primitive caml_ml_set_channel_output!\n");
197205
exit(1);

0 commit comments

Comments
 (0)