From 4878c40be523aa3f1657c83fd91b6015c0f3c79c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 9 Dec 2022 21:24:13 +1300 Subject: [PATCH] Make suspend exit the async block --- syndicate/async.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/syndicate/async.rkt b/syndicate/async.rkt index d8baba7..0ab64a5 100644 --- 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))