- changed title to promise is evaluated twice
promise is evaluated twice
Issue #123
resolved
This should return (1 1 101)
but (1 1 102)
(let ((n 100))
(define r (delay (begin (set! n (+ n 1)) 1)))
(define s (delay-force r))
(define t (delay-force s))
(let ((result1 (force t))
(result2 (force r)))
(list result1 result2 n)))
Comments (3)
-
reporter -
reporter - changed status to resolved
Forcing new promise instead of old one (Fixes
#123)→ <<cset e2c465b5f6f2>>
-
reporter Adding box layer for promise. (Fixes
#123)→ <<cset bf19c61465c7>>
- Log in to comment