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

By setting the initial gestalt to #f, we ensure at least one routing-update gets through.

This commit is contained in:
Tony Garnock-Jones 2014-05-21 23:16:38 -04:00
parent bfa9c9cfcb
commit a7d8051e2e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
minimart/core.rkt
View File

@ -118,7 +118,7 @@
(define (trigger-guard-process p)
(match-define (process _ b s) p)
(struct-copy process p [behavior trigger-guard-handle] [state (trigger-guard (gestalt-empty) b s)]))
(struct-copy process p [behavior trigger-guard-handle] [state (trigger-guard #f b s)]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; World implementation