1 files changed, 24 insertions, 24 deletions

diff --git a/stdlib/source/library/lux/data/collection/array.lux b/stdlib/source/library/lux/data/collection/array.lux
index a141fad68..5d306f773 100644
--- a/stdlib/source/library/lux/data/collection/array.lux
+++ b/stdlib/source/library/lux/data/collection/array.lux
@@ -77,13 +77,13 @@
           @.php ("php array length" array)
           @.scheme ("scheme array length" array)}))
 
-  (template: (!read <read> <null?>)
-    [(let [output (<read> index array)]
+  (template: (!read! <read!> <null?>)
+    [(let [output (<read!> index array)]
        (if (<null?> output)
          #.None
          (#.Some output)))])
 
-  (def: .public (read index array)
+  (def: .public (read! index array)
     (All [a]
       (-> Nat (Array a) (Maybe a)))
     (if (n.< (size array) index)
@@ -101,12 +101,12 @@
                 #.None
                 (#.Some (:expected value))))
 
-            @.js (!read "js array read" "js object undefined?")
-            @.python (!read "python array read" "python object none?")
-            @.lua (!read "lua array read" "lua object nil?")
-            @.ruby (!read "ruby array read" "ruby object nil?")
-            @.php (!read "php array read" "php object null?")
-            @.scheme (!read "scheme array read" "scheme object nil?")})
+            @.js (!read! "js array read" "js object undefined?")
+            @.python (!read! "python array read" "python object none?")
+            @.lua (!read! "lua array read" "lua object nil?")
+            @.ruby (!read! "ruby array read" "ruby object nil?")
+            @.php (!read! "php array read" "php object null?")
+            @.scheme (!read! "scheme array read" "scheme object nil?")})
       #.None))
 
   (def: .public (write! index value array)
@@ -152,7 +152,7 @@
 (def: .public (contains? index array)
   (All [a]
     (-> Nat (Array a) Bit))
-  (case (..read index array)
+  (case (..read! index array)
     (#.Some _)
     true
 
@@ -163,7 +163,7 @@
   {#.doc (.example "Mutate the array by updating the value at the specified index.")}
   (All [a]
     (-> Nat (-> a a) (Array a) (Array a)))
-  (case (read index array)
+  (case (read! index array)
     #.None
     array
 
@@ -176,7 +176,7 @@
   (All [a]
     (-> Nat a (-> a a) (Array a) (Array a)))
   (write! index
-          (|> array (read index) (maybe.else default) transform)
+          (|> array (read! index) (maybe.else default) transform)
           array))
 
 (def: .public (copy! length src_start src_array dest_start dest_array)
@@ -187,7 +187,7 @@
   (if (n.= 0 length)
     dest_array
     (list\fold (function (_ offset target)
-                 (case (read (n.+ offset src_start) src_array)
+                 (case (read! (n.+ offset src_start) src_array)
                    #.None
                    target
                    
@@ -200,7 +200,7 @@
   {#.doc "Finds out how many cells in an array are occupied."}
   (All [a] (-> (Array a) Nat))
   (list\fold (function (_ idx count)
-               (case (read idx array)
+               (case (read! idx array)
                  #.None
                  count
                  
@@ -219,7 +219,7 @@
   (All [a]
     (-> (Predicate a) (Array a) (Array a)))
   (list\fold (function (_ idx xs')
-               (case (read idx xs)
+               (case (read! idx xs)
                  #.None
                  xs'
 
@@ -237,7 +237,7 @@
   (let [arr_size (size xs)]
     (loop [idx 0]
       (if (n.< arr_size idx)
-        (case (read idx xs)
+        (case (read! idx xs)
           #.None
           (recur (inc idx))
           
@@ -254,7 +254,7 @@
   (let [arr_size (size xs)]
     (loop [idx 0]
       (if (n.< arr_size idx)
-        (case (read idx xs)
+        (case (read! idx xs)
           #.None
           (recur (inc idx))
           
@@ -269,7 +269,7 @@
   (All [a] (-> (Array a) (Array a)))
   (let [arr_size (size xs)]
     (list\fold (function (_ idx ys)
-                 (case (read idx xs)
+                 (case (read! idx xs)
                    #.None
                    ys
 
@@ -300,7 +300,7 @@
 
       _
       (recur (dec idx)
-             (case (read idx array)
+             (case (read! idx array)
                (#.Some head)
                (#.Item head output)
 
@@ -318,7 +318,7 @@
 
       _
       (recur (dec idx)
-             (#.Item (maybe.else default (read idx array))
+             (#.Item (maybe.else default (read! idx array))
                      output)))))
 
 (implementation: .public (equivalence (^open ",\."))
@@ -330,7 +330,7 @@
       (and (n.= sxy sxs)
            (list\fold (function (_ idx prev)
                         (and prev
-                             (case [(read idx xs) (read idx ys)]
+                             (case [(read! idx xs) (read! idx ys)]
                                [#.None #.None]
                                true
 
@@ -362,7 +362,7 @@
       (if (n.= 0 arr_size)
         (empty arr_size)
         (list\fold (function (_ idx mb)
-                     (case (read idx ma)
+                     (case (read! idx ma)
                        #.None
                        mb
 
@@ -380,7 +380,7 @@
       (loop [so_far init
              idx 0]
         (if (n.< arr_size idx)
-          (case (read idx xs)
+          (case (read! idx xs)
             #.None
             (recur so_far (inc idx))
 
@@ -396,7 +396,7 @@
        (let [size (..size array)]
          (loop [idx 0]
            (if (n.< size idx)
-             (case (..read idx array)
+             (case (..read! idx array)
                (#.Some value)
                (<op> (predicate value)
                      (recur (inc idx)))