Skip to content

Commit

Permalink
[ fix ] Fix direct use of delayed value in the support code
Browse files Browse the repository at this point in the history
  • Loading branch information
buzden committed Dec 5, 2022
1 parent 7e01239 commit c514471
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion support/chez/support.ss
Original file line number Diff line number Diff line change
Expand Up @@ -437,7 +437,7 @@
(define (blodwen-make-future work)
(let ([future (make-future-internal #f #f (make-mutex) (make-condition))])
(fork-thread (lambda ()
(let ([result (work)])
(let ([result (blodwen-force work)])
(with-mutex (future-internal-mutex future)
(set-future-internal-result! future result)
(set-future-internal-ready! future #t)
Expand Down

0 comments on commit c514471

Please sign in to comment.