make runtime ## free

Author: bobzhang

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" 

jscomp/runtime/caml_sys.ml

@@ -78,9 +78,12 @@ external readAs : spawnResult ->
 
 let caml_sys_system_command _cmd = 127
 
-let caml_sys_getcwd () = 
-  if Js.typeof [%raw{|process|}] = "undefined" then "/"
-  else [%raw{|process|}]##cwd ()  
+let caml_sys_getcwd : unit -> string = [%raw{|function(param){
+    if (typeof process === "undefined" || process.cwd === undefined){
+      return "/"  
+    }
+    return process.cwd()
+  }|}]
 
 
 (* Called by {!Sys} in the toplevel, should never fail*)

lib/js/caml_sys.js

@@ -30,13 +30,12 @@ function caml_sys_system_command(_cmd) {
   return 127;
 }
 
-function caml_sys_getcwd(param) {
-  if (typeof process === "undefined") {
-    return "/";
-  } else {
-    return process.cwd();
-  }
-}
+var caml_sys_getcwd = (function(param){
+    if (typeof process === "undefined" || process.cwd === undefined){
+      return "/"  
+    }
+    return process.cwd()
+  });
 
 function caml_sys_get_argv(param) {
   if (typeof process === "undefined") {