diff options
| -rw-r--r-- | chickadee/array-list.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/chickadee/array-list.scm b/chickadee/array-list.scm index 6be6da1..2208471 100644 --- a/chickadee/array-list.scm +++ b/chickadee/array-list.scm @@ -121,7 +121,8 @@ (begin (vector-set! v (- j 1) (vector-ref v j)) (shift (+ j 1)))))) - (loop (+ i 1))))))) + (loop (+ i 1))))) + (set-array-list-size! array-list (- n 1)))) (define (array-list-clear! array-list) (let ((size (array-list-size array-list)) |