buffer: rewrite flexvector grow! implementation using vector-resize

The vector-resize procedure is a CHICKEN extension, under the hood it pretty much does the same as the prior code.
nmeum · Aug 10, 2024 · ea25fcc · ea25fcc
1 parent 4d45e3b
commit ea25fcc
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/lib/buffer.sld b/lib/buffer.sld
@@ -14,6 +14,8 @@
 
           (srfi 1)
 
+          (only (chicken base) vector-resize)
+
           (edward util))
 
   (export make-buffer buffer->list buffer-length buffer-empty?

diff --git a/lib/buffer/srfi214-minimal.scm b/lib/buffer/srfi214-minimal.scm
@@ -27,8 +27,9 @@
 
 (define (grow! fv)
   (define old-vec (vec fv))
-  (define new-vec (make-vector (quotient (* (vector-length old-vec) 3) 2)))
-  (vector-copy! new-vec 0 old-vec)
+  (define
+    new-vec
+    (vector-resize old-vec (quotient (* (vector-length old-vec) 3) 2)))
   (set-vec! fv new-vec)
   new-vec)