syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

once

This commit is contained in:
Tony Garnock-Jones 2021-06-18 22:19:54 +02:00
parent dfd51a5235
commit 6fe031e678
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
syndicate/syntax.rkt
View File

@ -34,6 +34,7 @@
this-target this-target
at at
assert assert
once
stop-on stop-on
on on
during during
@ -320,6 +321,9 @@
(->preserve expr) (->preserve expr)
(void)))))))]))) (void)))))))])))
(define-syntax-rule (once [event expr ...] ...)
(react (stop-on event expr ...) ...))
(define-syntax-rule (stop-on event expr ...) (define-syntax-rule (stop-on event expr ...)
(on event (stop-current-facet expr ...))) (on event (stop-current-facet expr ...)))