Make ground a little quieter
This commit is contained in:
parent
a7a2a5c492
commit
c595c638b2
|
@ -21,6 +21,8 @@
|
||||||
signal-background-activity!
|
signal-background-activity!
|
||||||
run-ground)
|
run-ground)
|
||||||
|
|
||||||
|
(define-logger syndicate/ground)
|
||||||
|
|
||||||
;;---------------------------------------------------------------------------
|
;;---------------------------------------------------------------------------
|
||||||
;; Communication via regular subscription and messages from other threads
|
;; Communication via regular subscription and messages from other threads
|
||||||
|
|
||||||
|
@ -104,7 +106,7 @@
|
||||||
;; background-activity-count
|
;; background-activity-count
|
||||||
;; (trie->pretty-string interests))
|
;; (trie->pretty-string interests))
|
||||||
(if (and inert? (zero? background-activity-count) (trie-empty? interests))
|
(if (and inert? (zero? background-activity-count) (trie-empty? interests))
|
||||||
(begin (log-info "run-ground: Terminating because inert")
|
(begin (log-syndicate/ground-debug "run-ground: Terminating because inert")
|
||||||
(void))
|
(void))
|
||||||
(match (apply sync
|
(match (apply sync
|
||||||
(current-ground-event-async-channel)
|
(current-ground-event-async-channel)
|
||||||
|
@ -135,7 +137,7 @@
|
||||||
[(<quit> exn _)
|
[(<quit> exn _)
|
||||||
(trace-turn-end #f proc)
|
(trace-turn-end #f proc)
|
||||||
(trace-actor-exit #f exn)
|
(trace-actor-exit #f exn)
|
||||||
(log-info "run-ground: Terminating by request")
|
(log-syndicate/ground-debug "run-ground: Terminating by request")
|
||||||
(void)]
|
(void)]
|
||||||
[(transition new-state actions)
|
[(transition new-state actions)
|
||||||
(trace-turn-end #f (process (process-name proc) (process-behavior proc) new-state))
|
(trace-turn-end #f (process (process-name proc) (process-behavior proc) new-state))
|
||||||
|
@ -148,7 +150,7 @@
|
||||||
[(? patch? p)
|
[(? patch? p)
|
||||||
(process-actions actions (apply-patch interests (label-patch p (datum-tset 'root))))]
|
(process-actions actions (apply-patch interests (label-patch p (datum-tset 'root))))]
|
||||||
[_
|
[_
|
||||||
(log-warning "run-ground: ignoring useless meta-action ~v" a)
|
(log-syndicate/ground-warning "run-ground: ignoring useless meta-action ~v" a)
|
||||||
(process-actions actions interests)])])))]))
|
(process-actions actions interests)])])))]))
|
||||||
|
|
||||||
;; Action* -> Void
|
;; Action* -> Void
|
||||||
|
|
Loading…
Reference in New Issue