Make suspend exit the async block
This commit is contained in:
parent
41b38e7fb2
commit
4878c40be5
|
@ -17,7 +17,7 @@
|
||||||
(async* (lambda () body ...)))
|
(async* (lambda () body ...)))
|
||||||
|
|
||||||
(define (async* thunk)
|
(define (async* thunk)
|
||||||
(call-with-continuation-prompt thunk prompt-tag))
|
(call-with-continuation-prompt thunk prompt-tag (lambda (k) (k))))
|
||||||
|
|
||||||
(define (async?)
|
(define (async?)
|
||||||
(continuation-prompt-available? prompt-tag))
|
(continuation-prompt-available? prompt-tag))
|
||||||
|
|
Loading…
Reference in New Issue