~ chicken-core (chicken-5) 78b23b13111f10999c9a12d80accf4fbca90e8cf

commit 78b23b13111f10999c9a12d80accf4fbca90e8cf
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun May 15 14:30:43 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun May 15 14:30:43 2011 +0200

    fix for allocate in types.sdb (thanks to Peter Bex)

diff --git a/types.db b/types.db
index eb593380..cfbcce71 100644
--- a/types.db
+++ b/types.db
@@ -600,7 +600,7 @@
 
 (address->pointer (procedure address->pointer (fixnum) pointer))
 (align-to-word (procedure align-to-word (*) *))
-(allocate (procedure allocate (fixnum) pointer))
+(allocate (procedure allocate (fixnum) (or boolean pointer)))
 (block-ref (procedure block-ref (* fixnum) *))
 (block-set! (procedure block-set! (* fixnum *) *))
 (clear-unbound-variable-value! (procedure clear-unbound-variable-value! () undefined))