Support (quit-dataspace) at ground level
This commit is contained in:
parent
3f3249e7a1
commit
b323d7c650
|
@ -90,6 +90,8 @@
|
||||||
[(cons e rest)
|
[(cons e rest)
|
||||||
(let ((b (struct-copy bb b [inbound rest])))
|
(let ((b (struct-copy bb b [inbound rest])))
|
||||||
(interpret-actions b (deliver b e) #t))])]
|
(interpret-actions b (deliver b e) #t))])]
|
||||||
|
[(<quit> _ _)
|
||||||
|
(struct-copy bb b [halted? #t])]
|
||||||
[(transition new-dataspace actions)
|
[(transition new-dataspace actions)
|
||||||
(let process-actions ((b (struct-copy bb b [dataspace new-dataspace])) (actions actions))
|
(let process-actions ((b (struct-copy bb b [dataspace new-dataspace])) (actions actions))
|
||||||
(match actions
|
(match actions
|
||||||
|
|
|
@ -93,6 +93,9 @@
|
||||||
(match resulting-transition
|
(match resulting-transition
|
||||||
[#f ;; inert
|
[#f ;; inert
|
||||||
(await-interrupt #t w interests)]
|
(await-interrupt #t w interests)]
|
||||||
|
[(<quit> _ _)
|
||||||
|
(log-info "run-ground: Terminating by request")
|
||||||
|
(void)]
|
||||||
[(transition w actions)
|
[(transition w actions)
|
||||||
(let process-actions ((actions actions) (interests interests))
|
(let process-actions ((actions actions) (interests interests))
|
||||||
(match actions
|
(match actions
|
||||||
|
|
Loading…
Reference in New Issue