(stop-current-facet)

2017-07-05 06:28:06 -04:00 · 2017-07-05 06:28:06 -04:00 · 37cee0c937
parent ac5c5d2e5f
commit 37cee0c937
1 changed files with 4 additions and 0 deletions
--- a/racket/syndicate/actor.rkt
+++ b/racket/syndicate/actor.rkt
@ -14,6 +14,7 @@
         field/c
         assert
         stop-facet
+         stop-current-facet
         stop-when
         on-start
         on-stop
@ -410,6 +411,9 @@
         (parameterize ((current-facet-id (cdr fid))) ;; run in parent context wrt terminating facet
           (schedule-script! (lambda () (begin/void-default script ...))))))]))

+(define-syntax-rule (stop-current-facet)
+  (stop-facet (current-facet-id)))
+
 (define-syntax (stop-when stx)
  (syntax-parse stx
    [(_ w:when-pred E prio:priority script ...)