Return void from let/query
This commit is contained in:
parent
d4a03a3f7c
commit
e17aa14a44
|
@ -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:
|
||||
|
|
Loading…
Reference in New Issue