From 6adcc3f7de0b24ee5d4d1ba4599b15049a7b6dcf Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 29 Sep 2020 12:20:16 -0400
Subject: array-list: Fix bug in array-list-delete! procedure.

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

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))
-- 
cgit v1.2.3