Add deprecation notice to belt_Debug, remove unused code for block

Author: bobzhang

jscomp/others/belt_Debug.mli

@@ -0,0 +1,4 @@
+
+
+val setupChromeDebugger : unit -> unit 
+[@@ocaml.deprecated "This call is reduandent, simply remoe it"]

jscomp/runtime/block.ml

@@ -35,30 +35,5 @@ let __ tag block =
   Caml_obj_extern.set_tag block tag; block
 
 
-type symbol
-
-
-external cacheSymbol : string -> symbol = "for"
- [@@bs.scope "Symbol"] [@@bs.val]
-external addProp : 'a -> symbol -> <value: 'b> Js.t -> 'a = 
-  "defineProperty"  [@@bs.scope "Object"] [@@bs.val]
-
-
-(* It won't affect [Object.keys] using [Object.defineProperty*)
-let record  meta xs =
-  xs |.addProp (cacheSymbol "BsRecord") [%obj {value = meta}]
-
-let variant meta tag xs =     
-  xs |. Caml_obj_extern.set_tag tag;
-  xs |. addProp (cacheSymbol "BsVariant") [%obj {value = meta }] 
-
-let simpleVariant meta xs =       
-  xs |. addProp (cacheSymbol "BsVariant") [%obj {value = meta }] 
-  
-let localModule meta xs =   
-  xs |. addProp (cacheSymbol "BsLocalModule") [%obj {value = meta}]
-
-let polyVar meta xs =   
-  xs |. addProp (cacheSymbol "BsPolyVar") [%obj {value = meta}]
 
 

jscomp/runtime/block.mli

@@ -31,13 +31,4 @@ type obj = Caml_obj_extern.t
 
 val __ : int -> obj -> obj
 
-val record : 'a -> obj -> obj
-
-val variant : 'a -> int ->  obj -> obj
-
-val simpleVariant : 'a -> obj -> obj
-
-val localModule : 'a -> obj -> obj 
-
-val polyVar : 'a -> obj -> obj
 

lib/js/block.js

@@ -6,41 +6,5 @@ function __(tag, block) {
   return block;
 }
 
-function record(meta, xs) {
-  return Object.defineProperty(xs, Symbol.for("BsRecord"), {
-              value: meta
-            });
-}
-
-function variant(meta, tag, xs) {
-  xs.tag = tag;
-  return Object.defineProperty(xs, Symbol.for("BsVariant"), {
-              value: meta
-            });
-}
-
-function simpleVariant(meta, xs) {
-  return Object.defineProperty(xs, Symbol.for("BsVariant"), {
-              value: meta
-            });
-}
-
-function localModule(meta, xs) {
-  return Object.defineProperty(xs, Symbol.for("BsLocalModule"), {
-              value: meta
-            });
-}
-
-function polyVar(meta, xs) {
-  return Object.defineProperty(xs, Symbol.for("BsPolyVar"), {
-              value: meta
-            });
-}
-
 exports.__ = __;
-exports.record = record;
-exports.variant = variant;
-exports.simpleVariant = simpleVariant;
-exports.localModule = localModule;
-exports.polyVar = polyVar;
 /* No side effect */