Avoid adding an event-handler for message receipt unless there are some body clauses to process
This commit is contained in:
parent
d991ad934f
commit
24666b58b3
|
@ -410,12 +410,13 @@
|
||||||
#`(if #,condition #,gestalt-name (gestalt-empty))
|
#`(if #,condition #,gestalt-name (gestalt-empty))
|
||||||
gestalt-name))
|
gestalt-name))
|
||||||
|
|
||||||
(push! event-handlers
|
(when (not (stx-null? remaining-stx))
|
||||||
(lambda (e-stx)
|
(push! event-handlers
|
||||||
#`(match #,e-stx
|
(lambda (e-stx)
|
||||||
[(message #,matcher-stx (== #,(or meta-level 0)) #,pub?)
|
#`(match #,e-stx
|
||||||
(begin-transition #,@remaining-stx)]
|
[(message #,matcher-stx (== #,(or meta-level 0)) #,pub?)
|
||||||
[_ noop-transition]))))
|
(begin-transition #,@remaining-stx)]
|
||||||
|
[_ noop-transition])))))
|
||||||
|
|
||||||
(define (analyze-group-participation! loopspecs-stx pat-stx body-stx pub?)
|
(define (analyze-group-participation! loopspecs-stx pat-stx body-stx pub?)
|
||||||
(define-values (p remaining-stx) (analyze-participator-body body-stx (participator #f #f)))
|
(define-values (p remaining-stx) (analyze-participator-body body-stx (participator #f #f)))
|
||||||
|
|
Loading…
Reference in New Issue