~ chicken-core (master) b862a83d3e8beb39190aece7f4c42345996c24d5

commit b862a83d3e8beb39190aece7f4c42345996c24d5
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Sep 27 11:48:53 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Sep 27 11:48:53 2026 +0200

    update types.db

diff --git a/types.db b/types.db
index 3d205d77..f7a69c9c 100644
--- a/types.db
+++ b/types.db
@@ -1920,9 +1920,9 @@
 (chicken.memory.representation#procedure-data (#(procedure #:clean #:enforce) chicken.memory.representation#procedure-data (procedure) *))
 (chicken.memory.representation#record->vector (#(procedure #:clean) chicken.memory.representation#record->vector (*) vector))
 
-(chicken.memory.representation#make-record-instance (#(procedure #:clean) chicken.memory.representation#make-record-instance (symbol #!rest) *))
-(chicken.memory.representation#record-instance? (#(procedure #:clean) chicken.memory.representation#record-instance? (* #!optional symbol) boolean)
-		  ((* symbol) (##sys#structure? #(1) #(2)))
+(chicken.memory.representation#make-record-instance (#(procedure #:clean) chicken.memory.representation#make-record-instance (* #!rest) *))
+(chicken.memory.representation#record-instance? (#(procedure #:clean) chicken.memory.representation#record-instance? (* #!optional *) boolean)
+		  ((* *) (##sys#structure? #(1) #(2)))
 		  ((*) (let ((#(tmp) #(1)))
 			 (if (##sys#immediate? #(tmp))
 			     '#f