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

Bring #:collect vars into scope for maintained assertions in actor.rkt

This commit is contained in:
Tony Garnock-Jones 2015-12-11 17:55:34 +13:00
parent 80ab8e20cc
commit 424f38b268
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
prospect/actor.rkt
View File

@ -443,6 +443,8 @@
(box-adjoin! assertion-maintainers
(lambda (evt-stx)
#`(lambda (s)
(match-define (vector #,@binding-names)
(actor-state-variables s))
(define old-assertions
(strip-interests
(mux-interests-of (actor-state-mux s) #,endpoint-index)))
@ -575,7 +577,8 @@
(sequence-transitions0 s
#,@(mapply #'e (unbox track-updaters))
#,@(mapply #'e (unbox event-handlers))
(maintain-assertions e))))
(maintain-assertions e)
perform-pending-patch)))
(define initial-state
(actor-state (hasheq)