Add #:let to during/actor
This commit is contained in:
parent
d442f4890f
commit
490e414904
|
@ -259,6 +259,10 @@
|
||||||
(pattern (~seq #:on-crash expr))
|
(pattern (~seq #:on-crash expr))
|
||||||
(pattern (~seq) #:attr expr #f))
|
(pattern (~seq) #:attr expr #f))
|
||||||
|
|
||||||
|
(define-splicing-syntax-class let-option
|
||||||
|
(pattern (~seq #:let clauses))
|
||||||
|
(pattern (~seq) #:attr clauses #'()))
|
||||||
|
|
||||||
(define-splicing-syntax-class name
|
(define-splicing-syntax-class name
|
||||||
(pattern (~seq #:name N))
|
(pattern (~seq #:name N))
|
||||||
(pattern (~seq) #:attr N #'#f))
|
(pattern (~seq) #:attr N #'#f))
|
||||||
|
@ -442,7 +446,7 @@
|
||||||
|
|
||||||
(define-syntax (during/actor stx)
|
(define-syntax (during/actor stx)
|
||||||
(syntax-parse stx
|
(syntax-parse stx
|
||||||
[(_ P w:actor-wrapper name:name oncrash:on-crash-option O ...)
|
[(_ P w:actor-wrapper name:name parent-let:let-option oncrash:on-crash-option O ...)
|
||||||
(define E-stx (syntax/loc #'P (asserted P)))
|
(define E-stx (syntax/loc #'P (asserted P)))
|
||||||
(define-values (_proj _pat _bindings instantiated)
|
(define-values (_proj _pat _bindings instantiated)
|
||||||
(analyze-pattern E-stx #'P))
|
(analyze-pattern E-stx #'P))
|
||||||
|
@ -473,10 +477,11 @@
|
||||||
;; in supply until we see supply, and then terminate, thus
|
;; in supply until we see supply, and then terminate, thus
|
||||||
;; signalling to supply that it is no longer wanted.
|
;; signalling to supply that it is no longer wanted.
|
||||||
(react (stop-when (asserted inst)))))
|
(react (stop-when (asserted inst)))))
|
||||||
(w.wrapper #:name name.N
|
(let parent-let.clauses
|
||||||
(assert inst)
|
(w.wrapper #:name name.N
|
||||||
(stop-when (retracted (observe inst)))
|
(assert inst)
|
||||||
O ...))))]))
|
(stop-when (retracted (observe inst)))
|
||||||
|
O ...)))))]))
|
||||||
|
|
||||||
(define-syntax (begin/dataflow stx)
|
(define-syntax (begin/dataflow stx)
|
||||||
(syntax-parse stx
|
(syntax-parse stx
|
||||||
|
|
Loading…
Reference in New Issue