syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

This commit is contained in:
Tony Garnock-Jones 2017-10-12 13:59:11 +01:00
parent 22998de0dc
commit 70a56e6457
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/syndicate/actor.rkt
View File

@ -433,8 +433,8 @@
(lambda () (lambda ()
(begin/void-default script ...))))))))])) (begin/void-default script ...))))))))]))
(define-syntax-rule (stop-current-facet) (define-syntax-rule (stop-current-facet script ...)
(stop-facet (current-facet-id))) (stop-facet (current-facet-id) script ...))
(define-syntax (stop-when stx) (define-syntax (stop-when stx)
(syntax-parse stx (syntax-parse stx