no need for promise defaults

svn: r1113
2005-10-20 21:56:47 +00:00 · 2005-10-20 21:56:47 +00:00 · fd7a56fb36
commit fd7a56fb36
parent 9aafd3a272
1 changed files with 1 additions and 3 deletions
--- 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))])))