[bugfix] make-promise makes a promise that is done all along
This commit is contained in:
parent
36e0aa6f69
commit
195ccf199d
|
@ -926,7 +926,7 @@
|
||||||
(define (make-promise obj)
|
(define (make-promise obj)
|
||||||
(if (promise? obj)
|
(if (promise? obj)
|
||||||
obj
|
obj
|
||||||
(make-promise% #f obj)))
|
(make-promise% #t obj)))
|
||||||
|
|
||||||
(export delay-force delay force make-promise promise?))
|
(export delay-force delay force make-promise promise?))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue