Return void from let/query

This commit is contained in:
Tony Garnock-Jones 2022-11-25 13:50:36 +01:00
parent d4a03a3f7c
commit e17aa14a44
1 changed files with 4 additions and 3 deletions

View File

@ -145,9 +145,10 @@
(syntax-case stx ()
[(_ ((name (op args ...)) ...) body ...)
(syntax/loc stx
(react (define name (op query-result args ...)) ...
(sync! this-target
(stop-current-facet body ...))))]))
(begin (react (define name (op query-result args ...)) ...
(sync! this-target
(stop-current-facet body ...)))
(void)))]))
;;---------------------------------------------------------------------------
;;; Local Variables: