lift handle-results, since matthew said that the compiler might not do so
svn: r9181
This commit is contained in:
parent
f0547adffc
commit
7a29625659
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user