From dba391852d761c8f18e723592f351a0d9b375b99 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 29 Sep 2020 16:44:01 -0400
Subject: array-list: Expand by 1.5x rather than 2x.

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

diff --git a/chickadee/array-list.scm b/chickadee/array-list.scm
index da450c8..0150cce 100644
--- a/chickadee/array-list.scm
+++ b/chickadee/array-list.scm
@@ -17,6 +17,7 @@
 
 (define-module (chickadee array-list)
   #:use-module (ice-9 format)
+  #:use-module (rnrs base)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-9 gnu)
   #:use-module (srfi srfi-43)
@@ -72,7 +73,8 @@
 
 (define (expand-array-list! array-list)
   (let* ((old-vec (array-list-vector array-list))
-         (new-size (* (vector-length old-vec) 2))
+         (old-size (vector-length old-vec))
+         (new-size (+ old-size (div old-size 2)))
          (new-vec (make-vector new-size)))
     (vector-copy! new-vec 0 old-vec)
     (set-array-list-vector! array-list new-vec)))
-- 
cgit v1.2.3