search

ashinn / chibi-scheme

Official chibi-scheme repository
Other
1.2k stars 142 forks source link

SRFI 231: generic-storage-class fix #985

Closed gambiteer closed 2 months ago

gambiteer commented 2 months ago 
heine:~/programs/chibi-scheme> git diff
diff --git a/lib/srfi/231/base.scm b/lib/srfi/231/base.scm
index 5a5166b6..50b12a1b 100644
--- a/lib/srfi/231/base.scm
+++ b/lib/srfi/231/base.scm
@@ -270,7 +270,7 @@
 (define generic-storage-class
   (make-storage-class
    vector-ref vector-set! (lambda (x) #t) make-vector
-   vector-copy! vector-length #f (lambda (data) #t) (lambda (data) data)))
+   vector-copy! vector-length #f vector? (lambda (data) (assert (vector? data)) data)))

 ;; Parameters