~ chicken-core (chicken-5) e87440a88b966f1c4dc95902070537b43fa0939e

commit e87440a88b966f1c4dc95902070537b43fa0939e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 12 21:48:13 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 12 21:48:13 2011 +0200

    promise? is a predicate

diff --git a/types.db b/types.db
index 0db14df9..807ac96d 100644
--- a/types.db
+++ b/types.db
@@ -782,7 +782,7 @@
 (print* (procedure print* (#!rest) undefined))
 (procedure-information (procedure! procedure-information (procedure) *))
 (program-name (procedure! program-name (#!optional string) string))
-(promise? (procedure promise? (*) boolean))
+(promise? (procedure? (struct promise) promise? (*) boolean))
 
 (put! (procedure! put! (symbol symbol *) undefined)
       ((symbol symbol *)