suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no need for promise defaults

Browse Source 
svn: r1113
This commit is contained in:
Eli Barzilay 2005-10-20 21:56:47 +00:00
parent 9aafd3a272
commit fd7a56fb36
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/kw.ss
View File

@ -348,9 +348,7 @@
(cond [(or (null? args) (null? (cdr args)) (not (keyword? (car args)))) (cond [(or (null? args) (null? (cdr args)) (not (keyword? (car args))))
(and (pair? not-found) (and (pair? not-found)
(let ([x (car not-found)]) (let ([x (car not-found)])
(cond [(procedure? x) (x)] (if (procedure? x) (x) x)))]
[(promise? x) (force x)]
[else x])))]
[(eq? (car args) keyword) (cadr args)] [(eq? (car args) keyword) (cadr args)]
[else (loop (cddr args))]))) [else (loop (cddr args))])))