~ chicken-core (chicken-5) a032b09ad95f658fa55a438b7e0dd8a3c58763aa
commit a032b09ad95f658fa55a438b7e0dd8a3c58763aa
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Aug 19 03:08:13 2010 -0400
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Thu Aug 19 03:08:13 2010 -0400
types.db fix by Kon Lovett
diff --git a/types.db b/types.db
index 721590aa..f28c72a3 100644
--- a/types.db
+++ b/types.db
@@ -636,7 +636,7 @@
(set-procedure-data! (procedure set-procedure-data! (procedure *) undefined))
(set-unbound-variable-value! (procedure set-unbound-variable-value! (*) undefined))
(tag-pointer (procedure tag-pointer (pointer *) pointer))
-(tagged-pointer? (procedure tagged-pointer? (*) boolean))
+(tagged-pointer? (procedure tagged-pointer? (* #!optional *) boolean))
(unbound-variable-value (procedure unbound-variable-value (#!optional *) undefined))
(unbound-variable-given-value (procedure unbound-variable-given-value () *))
(unbound-variable-signals-error? (procedure unbound-variable-signals-error? () boolean))
Trap