cs: unbreak async foreign callbacks

Adds a changed missed in 1624193210.
This commit is contained in:
Matthew Flatt 2019-04-25 19:52:00 -06:00
parent 776996fe24
commit c59ba15522

View File

@ -185,7 +185,7 @@
(engine-block))
(lambda args
(internal-error "thread ended while it should run callbacks atomically"))
(lambda (e)
(lambda (e timeout?)
(start-implicit-atomic-mode)
(if done?
(k e)