Merge pull request #4126 from BuckleScript/tweak

Make %raw runtime free so we can use it anywhere in bootstrapping

Author: bobzhang

jscomp/runtime/caml_chrome_debugger.ml

@@ -182,7 +182,3 @@ let polyVar meta xs =
   xs |. addProp (cacheSymbol "BsPolyVar") {value = meta}
 
 
-[@@@warning "-60"]
-module  Use =  Js_internalRaw 
-  
-    

jscomp/runtime/caml_external_polyfill.ml

@@ -21,7 +21,6 @@
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
-module Use  =  Js_internalRaw
 
 
 type global 

jscomp/runtime/caml_float.ml

@@ -138,6 +138,3 @@ let caml_tan_float x =
   let z = exp (-. x) in
   (y +. z) /. (y -. z   ) *)
 
-[@@@ocaml.warning "-60"] 
-module Use =  Js_internalRaw
-  

jscomp/runtime/caml_format.ml

@@ -679,5 +679,3 @@ let caml_int32_of_string = caml_int_of_string
 let caml_nativeint_of_string = caml_int32_of_string
 
 
-[@@@warning "-60"]
-module Use =  Js_internalRaw

jscomp/runtime/caml_int64.ml

@@ -477,5 +477,3 @@ let get64 (s : string) (i:int) : t =
             (Caml_nativeint_extern.of_int (Caml_char.code s.[i+6]) << 48 )
             (Caml_nativeint_extern.of_int (Caml_char.code s.[i+7]) << 56 )))
 
-[@@@ocaml.warning "-60"]
-module Use =  Js_internalRaw

jscomp/runtime/caml_io.ml

@@ -113,5 +113,3 @@ let caml_ml_out_channels_list () : out_channel list  =
   [stdout; stderr]  
 
 
-[@@@warning "-60"]
-module Use = Js_internalRaw

jscomp/runtime/caml_lexer.ml

@@ -365,5 +365,3 @@ let caml_new_lex_engine : lex_tables -> int -> lexbuf -> int
   = fun tbl i buf -> 
 caml_new_lex_engine_aux tbl i buf (Failure empty_token_lit)
 
-[@@@warning "-60"]
-module Use =  Js_internalRaw

jscomp/runtime/caml_obj.ml

@@ -37,8 +37,8 @@ module O = struct
     [%raw{|function(o,foo){
         for (var x in o) { foo(x) }}
       |}]
-    
-  let hasOwnProperty (o: Caml_obj_extern.t) (key: key) : bool = (Obj.magic o)##hasOwnProperty(key)
+  external hasOwnProperty :    
+    t -> key -> bool = "hasOwnProperty" [@@bs.send]
   external get_value : Caml_obj_extern.t -> key -> Caml_obj_extern.t = ""[@@bs.get_index]
   external shallowCopy :
     (_ [@bs.as {json|{}|json}]) -> t -> t = "assign" 
@@ -388,5 +388,3 @@ let caml_max (x : Caml_obj_extern.t) y =
 
 let caml_obj_set_tag = Caml_obj_extern.set_tag  
 
-[@@@warning "-60"]
-module Use =  Js_internalRaw

jscomp/runtime/caml_parser.ml

@@ -391,5 +391,3 @@ let caml_set_parser_trace : bool -> bool = [%raw{|function (v) {
     return old;
 }|}]
 
-[@@@warning "-60"]
-module Use =  Js_internalRaw

jscomp/runtime/caml_splice_call.ml

@@ -52,5 +52,3 @@ let spliceObjApply : obj -> obj -> obj -> obj = [%raw{|function(obj,name,args){
   return (obj[name]).apply(obj,applied)
 }|}]
 
-[@@@warning "-60"]
-module Use =  Js_internalRaw