Permit #:when in stop-when.

2016-09-02 10:36:03 +01:00 · 2016-09-02 10:36:03 +01:00 · 45c12bacf0
parent e50ab77b53
commit 45c12bacf0
1 changed files with 2 additions and 2 deletions
--- a/racket/syndicate/actor.rkt
+++ b/racket/syndicate/actor.rkt
@ -375,9 +375,9 @@

 (define-syntax (stop-when stx)
  (syntax-parse stx
-    [(_ E prio:priority script ...)
+    [(_ w:when-pred E prio:priority script ...)
     (analyze-event stx
-                    #'#t
+                    #'w.Pred
                    #'E
                    #t
                    (syntax/loc stx (begin/void-default script ...))