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

lift handle-results, since matthew said that the compiler might not do so

Browse Source 
svn: r9181
This commit is contained in:
Eli Barzilay 2008-04-07 19:55:54 +00:00
parent f0547adffc
commit 7a29625659
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scheme/promise.ss
View File

@ -86,11 +86,13 @@
;; * does not deal with multiple values, since they're not used by the lazy ;; * does not deal with multiple values, since they're not used by the lazy
;; language (but see below) ;; language (but see below)
(define handle-results
(case-lambda [(single) (values #f single)]
[multi (values #t multi)]))
(define (force-proc p root) (define (force-proc p root)
(let loop1 ([p p]) (let loop1 ([p p])
(let-values ([(multi? v) (call-with-values p (let-values ([(multi? v) (call-with-values p handle-results)])
(case-lambda [(single) (values #f single)]
[multi (values #t multi)]))])
(if multi? (if multi?
(begin ; error here for "library approach" (see above URL) (begin ; error here for "library approach" (see above URL)
(set-promise-val! root v) (set-promise-val! root v)