once
This commit is contained in:
parent
dfd51a5235
commit
6fe031e678
|
@ -34,6 +34,7 @@
|
|||
this-target
|
||||
at
|
||||
assert
|
||||
once
|
||||
stop-on
|
||||
on
|
||||
during
|
||||
|
@ -320,6 +321,9 @@
|
|||
(->preserve expr)
|
||||
(void)))))))])))
|
||||
|
||||
(define-syntax-rule (once [event expr ...] ...)
|
||||
(react (stop-on event expr ...) ...))
|
||||
|
||||
(define-syntax-rule (stop-on event expr ...)
|
||||
(on event (stop-current-facet expr ...)))
|
||||
|
||||
|
|
Loading…
Reference in New Issue