From 424f38b268f58ef1b10ea0c1101cf9e528c12d60 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 11 Dec 2015 17:55:34 +1300 Subject: [PATCH] Bring #:collect vars into scope for maintained assertions in actor.rkt --- prospect/actor.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/prospect/actor.rkt b/prospect/actor.rkt index 81ee32b..7416d39 100644 --- a/prospect/actor.rkt +++ b/prospect/actor.rkt @@ -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)