From 45c12bacf0897d4f40643fb684182769466c0186 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Fri, 2 Sep 2016 10:36:03 +0100
Subject: [PATCH] Permit #:when in stop-when.

---
 racket/syndicate/actor.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/racket/syndicate/actor.rkt b/racket/syndicate/actor.rkt
index 2151ac7..3bf4336 100644
--- 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 ...))