tracks/ocaml/exercises/binary-search/example.ml in trackler-2.1.0.21 vs tracks/ocaml/exercises/binary-search/example.ml in trackler-2.1.0.22

@@ -1,19 +1,19 @@
-open Core.Std
+open Core
 
-let find array value = 
+let find xs value = 
   let rec go lo hi = 
     if lo > hi then None
     else begin 
       let mid = lo + (hi - lo) / 2 in
-      let mid_val = array.(mid) in
+      let mid_val = xs.(mid) in
       if mid_val < value
       then go (mid + 1) hi
       else if mid_val > value
       then go lo (mid - 1)
       else Some mid
     end
   in
-  if Array.is_empty array
+  if Array.is_empty xs
   then None
-  else go 0 (Array.length array - 1) 
+  else go 0 (Array.length xs - 1) 
   
\ No newline at end of file