Make suspend exit the async block

2022-12-09 21:24:13 +13:00 · 2022-12-09 21:24:13 +13:00 · 4878c40be5
parent 41b38e7fb2
commit 4878c40be5
1 changed files with 1 additions and 1 deletions
--- a/syndicate/async.rkt
+++ b/syndicate/async.rkt
@ -17,7 +17,7 @@
  (async* (lambda () body ...)))

 (define (async* thunk)
-  (call-with-continuation-prompt thunk prompt-tag))
+  (call-with-continuation-prompt thunk prompt-tag (lambda (k) (k))))

 (define (async?)
  (continuation-prompt-available? prompt-tag))