decouple deps on array

Author: bobzhang

jscomp/others/js_mapperRt.ml

@@ -22,6 +22,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
+external (.!()) : int array -> int -> int = "" [@@bs.get_index]
 
 let raiseWhenNotFound x =
   if Js.testAny x then raise Not_found 
@@ -30,7 +31,7 @@ let raiseWhenNotFound x =
 let rec fromIntAux (enum : int) i len xs =
   if i = len then None
   else
-    let k = Js.Array2.unsafe_get xs i in
+    let k = xs.!(i) in
     if k = enum then Some i
     else fromIntAux enum (i + 1) len xs
 
@@ -40,7 +41,7 @@ let fromInt len (xs : int array) (enum : int )  : 'variant option =
 let rec fromIntAssertAux len (enum : int) i  xs =
   if i = len then raise Not_found
   else
-    let k = Js.Array2.unsafe_get xs i in
+    let k = xs.!(i) in
     if k = enum then  i
     else fromIntAssertAux len enum (i + 1)  xs
 

jscomp/others/release.ninja

@@ -30,7 +30,7 @@ build others/js_json.cmj : cc_cmi others/js_json.ml | others/js_array2.cmj other
 build others/js_json.cmi : cc others/js_json.mli | others/js_dict.cmi others/js_null.cmi others/js_string.cmj others/js_types.cmi runtime
 build others/js_list.cmj : cc_cmi others/js_list.ml | others/js_array2.cmj others/js_list.cmi others/js_vector.cmj runtime
 build others/js_list.cmi : cc others/js_list.mli | others/js_vector.cmi runtime
-build others/js_mapperRt.cmj : cc_cmi others/js_mapperRt.ml | others/js_array2.cmj others/js_mapperRt.cmi runtime
+build others/js_mapperRt.cmj : cc_cmi others/js_mapperRt.ml | others/js_mapperRt.cmi runtime
 build others/js_mapperRt.cmi : cc others/js_mapperRt.mli | runtime
 build others/js_math.cmi others/js_math.cmj : cc others/js_math.ml | others/js_int.cmj runtime
 build others/js_null.cmj : cc_cmi others/js_null.ml | others/js_exn.cmj others/js_null.cmi runtime