From 35f2afb2d4d3adc72d83fbc9582d8dc9bfee0ab0 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 29 Sep 2020 16:44:34 -0400
Subject: array-list: Allow user-specified initial capacity.

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

diff --git a/chickadee/array-list.scm b/chickadee/array-list.scm
index 0150cce..e09cded 100644
--- a/chickadee/array-list.scm
+++ b/chickadee/array-list.scm
@@ -51,8 +51,8 @@
 
 (set-record-type-printer! <array-list> display-array-list)
 
-(define (make-array-list)
-  (%make-array-list (make-vector 32) 0))
+(define* (make-array-list #:optional (initial-capacity 32))
+  (%make-array-list (make-vector initial-capacity) 0))
 
 (define (array-list . items)
   (let ((l (make-array-list)))
-- 
cgit v1.2.3