From fd7a56fb36892da69c262cee3603c243cc4a8011 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 20 Oct 2005 21:56:47 +0000
Subject: [PATCH] no need for promise defaults

svn: r1113
---
 collects/mzlib/kw.ss | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/collects/mzlib/kw.ss b/collects/mzlib/kw.ss
index 838aaf0360..2b7a462adc 100644
--- a/collects/mzlib/kw.ss
+++ b/collects/mzlib/kw.ss
@@ -348,9 +348,7 @@
     (cond [(or (null? args) (null? (cdr args)) (not (keyword? (car args))))
            (and (pair? not-found)
                 (let ([x (car not-found)])
-                  (cond [(procedure? x) (x)]
-                        [(promise? x) (force x)]
-                        [else x])))]
+                  (if (procedure? x) (x) x)))]
           [(eq? (car args) keyword) (cadr args)]
           [else (loop (cddr args))])))