diff options
| -rw-r--r-- | chickadee/array-list.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |