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) (define-syntax (during/actor stx)
(syntax-parse 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 E-stx (syntax/loc #'P (asserted P #:meta-level L.level)))
(define-values (_proj _pat _bindings instantiated) (define-values (_proj _pat _bindings instantiated)
(analyze-pattern E-stx #'P)) (analyze-pattern E-stx #'P))
(quasisyntax/loc stx (quasisyntax/loc stx
(on #,E-stx (on #,E-stx
(let ((p #,instantiated)) (let ((p #,instantiated))
(actor (actor #:name name.N
(react (stop-when (retracted p #:meta-level L.level)) (react (stop-when (retracted p #:meta-level L.level))
O ...)))))])) O ...)))))]))