remove experiment

Author: zth

jscomp/core/lam_dispatch_primitive.ml

@@ -265,18 +265,6 @@ let translate loc (prim_name : string) (args : J.expression list) : J.expression
       | [e] -> {e with expression_desc = Await e}
       | _ -> assert false
   )
-  | "?createDict" -> (
-      match args with
-      | [{expression_desc=Array (exprs, _)} as e] -> 
-        let key_values =
-            exprs
-            |> List.filter_map (fun (e : J.expression) ->
-                   match e.expression_desc with
-                   | Caml_block ([{expression_desc = Str {txt}}; value], _, _, _) -> Some (Js_op.Lit txt, value)
-                   | _ -> None) in
-        {e with expression_desc=Object key_values}
-      | _ -> assert false
-  )
   | _ ->
       Bs_warnings.warn_missing_primitive loc prim_name;
       E.resolve_and_apply prim_name args

jscomp/others/js_dict.res

@@ -27,8 +27,6 @@
 /** The dict type */
 type t<'a> = dict<'a>
 
-external _unsafe_create: array<(string, 'a)> => dict<'a> = "?createDict"
-
 /** The key type, an alias of string */
 type key = string
 

jscomp/others/js_dict.resi

@@ -41,8 +41,6 @@ mostly used with the Js_json.t type.
 */
 type t<'a> = dict<'a>
 
-external _unsafe_create: array<(string, 'a)> => dict<'a> = "?createDict"
-
 /**
   The type for dictionary keys. This means that dictionaries *must* use `string`s as their keys.
 */

jscomp/test/DictTests.js

@@ -8,12 +8,6 @@ external imaginaryExternalArgs: array<(string, string)> = "imaginary"
 
 let dictCreationCanNotBeInlined = Js.Dict.fromArray(imaginaryExternalArgs)
 
-let dictCreationCanBeInlined2 = Js.Dict._unsafe_create([
-  ("name", "hello"),
-  ("age", "what"),
-  ("more", "stuff"),
-])
-
 open Js
 
 let dictCreationCanBeInlined3 = Dict.fromArray([