From 70a56e64575bf42ab8a97e8d84694cc59576a7f7 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 12 Oct 2017 13:59:11 +0100
Subject: [PATCH] Allow stop-current-facet to take scripts to execute, like
 stop-facet

---
 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 3afdf9f..e900f25 100644
--- a/racket/syndicate/actor.rkt
+++ b/racket/syndicate/actor.rkt
@@ -433,8 +433,8 @@
                                 (lambda ()
                                   (begin/void-default script ...))))))))]))
 
-(define-syntax-rule (stop-current-facet)
-  (stop-facet (current-facet-id)))
+(define-syntax-rule (stop-current-facet script ...)
+  (stop-facet (current-facet-id) script ...))
 
 (define-syntax (stop-when stx)
   (syntax-parse stx