~ chicken-core (chicken-5) 9fc316865323996771b5f0d0d9576b5066f12cc1

commit 9fc316865323996771b5f0d0d9576b5066f12cc1
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Oct 30 20:40:25 2013 +1300
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sun Nov 3 11:12:43 2013 +0100

    Fix force's types.db entry to specify multiple-value return
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/types.db b/types.db
index 9eaeae10..2a039ee6 100644
--- a/types.db
+++ b/types.db
@@ -586,7 +586,7 @@
 (apply (#(procedure #:enforce) apply (procedure #!rest) . *))
 (##sys#apply (#(procedure #:enforce) ##sys#apply (procedure #!rest) . *))
 
-(force (procedure force (*) *)
+(force (procedure force (*) . *)
        (((not (struct promise))) #(1)))
 
 (call-with-current-continuation