Permit #:when in stop-when.
This commit is contained in:
parent
e50ab77b53
commit
45c12bacf0
|
@ -375,9 +375,9 @@
|
||||||
|
|
||||||
(define-syntax (stop-when stx)
|
(define-syntax (stop-when stx)
|
||||||
(syntax-parse stx
|
(syntax-parse stx
|
||||||
[(_ E prio:priority script ...)
|
[(_ w:when-pred E prio:priority script ...)
|
||||||
(analyze-event stx
|
(analyze-event stx
|
||||||
#'#t
|
#'w.Pred
|
||||||
#'E
|
#'E
|
||||||
#t
|
#t
|
||||||
(syntax/loc stx (begin/void-default script ...))
|
(syntax/loc stx (begin/void-default script ...))
|
||||||
|
|
Loading…
Reference in New Issue