diff options
| author | David Thompson <dthompson2@worcester.edu> | 2020-09-29 12:20:16 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-09-29 12:20:27 -0400 |
| commit | 6adcc3f7de0b24ee5d4d1ba4599b15049a7b6dcf (patch) | |
| tree | e09ade16261e2fc3684dc2339a973e866f8ee189 | |
| parent | 04964c4ffcfdab5393aaadc7bcf6d5e8c0ce25e0 (diff) | |
array-list: Fix bug in array-list-delete! procedure.
| -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)) |