File tree 1 file changed +4
-1
lines changed
1 file changed +4
-1
lines changed Original file line number Diff line number Diff line change @@ -387,7 +387,6 @@ let convert (exports : Set_ident.t) (lam : Lambda.lambda) :
387
387
(args : Lambda.lambda list ) loc ~dynamic_import : Lam. t =
388
388
let prim_name = a_prim.prim_name in
389
389
match External_ffi_types. from_string a_prim.prim_native_name with
390
- | Ffi_normal -> assert false
391
390
| Ffi_obj_create labels ->
392
391
let args = Ext_list. map args convert_aux in
393
392
prim ~primitive: (Pjs_object_create labels) ~args loc
@@ -400,6 +399,10 @@ let convert (exports : Set_ident.t) (lam : Lambda.lambda) :
400
399
let args = Ext_list. map args convert_aux in
401
400
Lam. handle_bs_non_obj_ffi arg_types result_type ffi args loc prim_name ~dynamic_import
402
401
| Ffi_inline_const i -> Lam. const i
402
+ | Ffi_normal -> Location. raise_errorf ~loc
403
+ " @{<error>Error:@} internal error, using unrecognized \
404
+ primitive %s"
405
+ prim_name
403
406
404
407
and convert_aux ?(dynamic_import = false ) (lam : Lambda.lambda ) : Lam.t =
405
408
match lam with
You can’t perform that action at this time.
0 commit comments