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

Allow naming of `during/actor`s

This commit is contained in:
Tony Garnock-Jones 2016-07-12 16:32:54 -04:00
parent 34b504326f
commit 1a6199f9ee
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

@ -279,14 +279,14 @@
(define-syntax (during/actor stx)
(syntax-parse stx
[(_ P L:meta-level O ...)
[(_ P L:meta-level name:name O ...)
(define E-stx (syntax/loc #'P (asserted P #:meta-level L.level)))
(define-values (_proj _pat _bindings instantiated)
(analyze-pattern E-stx #'P))
(quasisyntax/loc stx
(on #,E-stx
(let ((p #,instantiated))
(actor
(actor #:name name.N
(react (stop-when (retracted p #:meta-level L.level))
O ...)))))]))