syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Keep ground dataspace running while subscriptions are present

This commit is contained in:
Sam Caldwell 2017-03-08 17:59:55 -05:00
parent dc83d33afb
commit e0e7baed46
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/syndicate/ground.rkt
View File

@ -12,6 +12,7 @@
(require "trace/stderr.rkt")
(require "tset.rkt")
(require "protocol/standard-relay.rkt")
(require "trie.rkt")
(provide (struct-out external-event)
current-ground-event-async-channel
@ -107,7 +108,10 @@
;; background-activity-count
;; (trie->pretty-string interests))
(define active-events (extract-active-events interests))
(if (and inert? (zero? background-activity-count) (null? active-events))
;; use the presence of subscriptions to indicate whether the program is
;; waiting on a driver
(define ground-subscriptions (trie-step interests observe-parenthesis))
(if (and inert? (zero? background-activity-count) (trie-empty? ground-subscriptions))
(begin (log-syndicate/ground-debug "run-ground: Terminating because inert")
interests)
(match (apply sync