~ 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