change value to VAL for maintainability

Author: bobzhang

jscomp/ext/literals.ml

@@ -142,7 +142,7 @@ let ns_sep = "-"
 let exception_id = "RE_EXN_ID"
 
 let polyvar_hash = "HASH"
-let polyvar_value = "value"
+let polyvar_value = "VAL"
 
 let cons = "::"
 let hd = "hd"

jscomp/runtime/caml_option.ml

@@ -75,7 +75,10 @@ let option_get (x : 'a option) =
   else Obj.magic (valFromOption (Obj.repr x))
 
 
-type poly = {hash : int [@bs.as "HASH" (* Literals.polyvar_hash*)]; value : Obj.t }  
+type poly = {
+  hash : int [@bs.as "HASH" (* Literals.polyvar_hash*)]; 
+  value : Obj.t [@bs.as "VAL"]
+}  
 
 (** [input] is optional polymorphic variant *)  
 let option_unwrap (x : poly option) = 

jscomp/runtime/caml_option.mli

@@ -35,7 +35,10 @@ val some : Obj.t -> Obj.t
 
 val option_get : Obj.t option -> Obj.t Caml_undefined_extern.t 
 
-type poly = {hash : int [@bs.as "HASH"]; value : Obj.t }  
+type poly = {
+    hash : int [@bs.as "HASH"]; 
+    value : Obj.t [@bs.as "VAL"]
+}  
 
 (** When it is None, return none
     When it is (Some (`a 3)) return 3