Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

add data domain checks for generic-storage-class

Browse source 
Closes #985.
This commit is contained in:
Alex Shinn 2024-05-30 19:09:54 +09:00
parent 3558c0f4a6
commit 5e74c5ff54
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/231/base.scm
View file

@ -270,7 +270,7 @@
(define generic-storage-class (define generic-storage-class
(make-storage-class (make-storage-class
vector-ref vector-set! (lambda (x) #t) make-vector 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 ;; Parameters