>From 1ca5b2a06c88a1b0faaf7de4ffa5f17a42aa15b8 Mon Sep 17 00:00:00 2001
From: Evan Hanson <address@hidden>
Date: Wed, 30 Oct 2013 20:40:25 +1300
Subject: [PATCH 1/2] Fix force's types.db entry to specify multiple-value
 return

---
 types.db |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/types.db b/types.db
index 9eaeae1..2a039ee 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
-- 
1.7.10.4