tweak

Author: bobzhang

jscomp/core/lam_primitive.ml

@@ -49,7 +49,7 @@ type t =
       { prim_name : string ;
         arg_types : External_arg_spec.t list ;
         ffi : External_ffi_types.external_spec }
-  | Pjs_object_create of External_ffi_types.obj_create
+  | Pjs_object_create of External_arg_spec.t list
   (* Exceptions *)
   | Praise
   (* Boolean operations *)

jscomp/core/lam_primitive.mli

@@ -48,7 +48,7 @@ type t =
     { prim_name : string;
       arg_types : External_arg_spec.t list ;
       ffi : External_ffi_types.external_spec}
-  | Pjs_object_create of External_ffi_types.obj_create
+  | Pjs_object_create of External_arg_spec.t list
 
   | Praise 
   | Psequand | Psequor | Pnot

jscomp/syntax/external_ffi_types.ml

@@ -44,8 +44,6 @@ type arg_type = External_arg_spec.attr
 type arg_label = External_arg_spec.label
 
 
-(**TODO: maybe we can merge [arg_label] and [arg_type] *)
-type obj_create = External_arg_spec.t list
 
 type external_spec =
   | Js_var of {
@@ -128,7 +126,7 @@ type t  =
        [return] means return value is unit or not,
         [true] means is [unit]
   *)
-  | Ffi_obj_create of obj_create
+  | Ffi_obj_create of  External_arg_spec.t list
   | Ffi_inline_const of Lam_constant.t
   | Ffi_normal
   (* When it's normal, it is handled as normal c functional ffi call *)

jscomp/syntax/external_ffi_types.mli

@@ -45,10 +45,6 @@ type arg_type = External_arg_spec.attr
 type arg_label = External_arg_spec.label
 
 
-type obj_create = External_arg_spec.t list
-
-
-
 
 
 
@@ -109,7 +105,7 @@ type t  =
       External_arg_spec.t list  *
       return_wrapper *
       external_spec
-  | Ffi_obj_create of obj_create
+  | Ffi_obj_create of External_arg_spec.t list
   | Ffi_inline_const of Lam_constant.t
   | Ffi_normal
   (* When it's normal, it is handled as normal c functional ffi call *)