Change signature of Array.index-of to take a ref instead.

core/Array.carp

@@ -125,7 +125,7 @@
   (defn index-of [a e]
     (let-do [idx -1]
       (for [i 0 (length a)]
-        (when (= (nth a i) &e)
+        (when (= (nth a i) e)
           (do
             (set! idx i)
             (break))))

core/Statistics.carp

@@ -82,7 +82,7 @@
             (= n 1) @(Array.nth data 0)
             (let [x @(Array.nth data (/ n 2)) ; else
                   l (- x (/ (from-int interval) 2.0))
-                  cf (Array.index-of data x)
+                  cf (Array.index-of data &x)
                   f (Array.element-count data &x)]
               (+ l (/ (* (from-int interval) (- (/ (from-int n) 2.0) (from-int cf)))
                       (from-int f)))))))

docs/core/Array.html

@@ -564,7 +564,7 @@
                     defn
                 </div>
                 <p class="sig">
-                    (λ [(Ref (Array a)), a] Int)
+                    (λ [(Ref (Array a)), &amp;a] Int)
                 </p>
                 <pre class="args">
                     (index-of a e)

test/memory.carp

@@ -247,7 +247,7 @@
 
 (defn array-index-of []
   (let [xs [@"a" @"b" @"c" @"d" @"e"]]
-    (assert (= 2 (Array.index-of &xs @"c")))))
+    (assert (= 2 (Array.index-of &xs "c")))))
 
 (defn array-element-count []
   (let [xs [@"a" @"b" @"a" @"a" @"b"]]