Skip to content

Commit

Permalink
[ fix ] Fix racket's futures
Browse files Browse the repository at this point in the history
  • Loading branch information
buzden committed Dec 13, 2022
1 parent 16281d2 commit 2f18703
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
2 changes: 1 addition & 1 deletion support/racket/support.rkt
Original file line number Diff line number Diff line change
Expand Up @@ -457,7 +457,7 @@
; )


(define (blodwen-make-future work) (future work))
(define (blodwen-make-future work) (future (lambda () (blodwen-force work))))
(define (blodwen-await-future ty future) (touch future))

;; NB: These should *ALWAYS* be used in multi-threaded programs since Racket
Expand Down
4 changes: 2 additions & 2 deletions tests/racket/futures001/run
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rm -rf build

$1 --no-banner --no-color --console-width 0 --cg racket Futures.idr -p contrib --exec constant
$1 --no-banner --no-color --console-width 0 --cg racket Futures.idr -p contrib --exec map

rm -r build

0 comments on commit 2f18703

Please sign in to comment.