From bdaee80ce88f510d4a67afc983699e8f15b7bc71 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 24 Mar 2012 16:12:18 -0400 Subject: [PATCH] Only try to sync on evt? subscriptions --- os2.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/os2.rkt b/os2.rkt index 3165896..7ccc687 100644 --- a/os2.rkt +++ b/os2.rkt @@ -361,7 +361,9 @@ (error 'ground-vm "No meta-actions available in ground-vm: ~v" actions)) (define waiting? (quasi-queue-empty? (vm-pending-actions state))) (define active-events (for/list ([(eid e) (in-hash (vm-endpoints state))] - #:when (eq? (topic-role (endpoint-topic e)) 'subscriber)) + #:when (and (evt? (topic-pattern (endpoint-topic e))) + (eq? (topic-role (endpoint-topic e)) + 'subscriber))) (define evt (topic-pattern (endpoint-topic e))) (wrap-evt evt (lambda (message) (lambda (state)