diff options
| -rw-r--r-- | chickadee/array-list.scm | 4 |
1 files 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))) |