Support (quit-dataspace) at ground level

racket/syndicate/big-bang.rkt

@@ -90,6 +90,8 @@
        [(cons e rest)
         (let ((b (struct-copy bb b [inbound rest])))
           (interpret-actions b (deliver b e) #t))])]
+    [(<quit> _ _)
+     (struct-copy bb b [halted? #t])]
     [(transition new-dataspace actions)
      (let process-actions ((b (struct-copy bb b [dataspace new-dataspace])) (actions actions))
        (match actions

racket/syndicate/ground.rkt

@@ -93,6 +93,9 @@
 	  (match resulting-transition
 	    [#f ;; inert
 	     (await-interrupt #t w interests)]
+            [(<quit> _ _)
+             (log-info "run-ground: Terminating by request")
+             (void)]
 	    [(transition w actions)
 	     (let process-actions ((actions actions) (interests interests))
 	       (match actions