From 969ca17ca4439ba4e16e3d1b54794e12b5fe09e7 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 30 Sep 2020 23:25:13 -0400
Subject: array-list: Fix yet another iteration bug.

---
 chickadee/array-list.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/chickadee/array-list.scm b/chickadee/array-list.scm
index 6c1e6f1..8f5bb11 100644
--- a/chickadee/array-list.scm
+++ b/chickadee/array-list.scm
@@ -149,6 +149,6 @@
   (let ((vec (array-list-vector array-list)))
     (let loop ((i 0)
                (prev init))
-      (if (< i (size (array-list-size array-list)))
+      (if (< i (array-list-size array-list))
           (loop (1+ i) (proc i (vector-ref vec i) prev))
           prev))))
-- 
cgit v1.2.3