diff options
| author | David Thompson <dthompson2@worcester.edu> | 2020-09-30 23:25:13 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-09-30 23:25:13 -0400 |
| commit | 969ca17ca4439ba4e16e3d1b54794e12b5fe09e7 (patch) | |
| tree | f3a536dfc0aac90788754dc05f809f40be581553 | |
| parent | c2f39ea3e873ad9663c28c4c870ba47cda32497e (diff) | |
array-list: Fix yet another iteration bug.
| -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)))) |