Browse Source

Allow stop-current-facet to take scripts to execute, like stop-facet

pr/32
Tony Garnock-Jones 4 years ago
parent
commit
70a56e6457
  1. 4
      racket/syndicate/actor.rkt

4
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

Loading…
Cancel
Save