From 5e74c5ff5459710a5ad40c28ac1338dbe639ec6d Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Thu, 30 May 2024 19:09:54 +0900
Subject: [PATCH] add data domain checks for generic-storage-class

Closes #985.
---
 lib/srfi/231/base.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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