From dff4f9ac70e4f595085d40b37f83b00cde45f863 Mon Sep 17 00:00:00 2001 From: Geoffrey Gaillard Date: Thu, 14 Apr 2022 16:05:47 +0200 Subject: [PATCH] Consider `go` has an implicit `do` --- src/hyperfiddle/rcf/impl.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/hyperfiddle/rcf/impl.clj b/src/hyperfiddle/rcf/impl.clj index 41f8524..b26632b 100644 --- a/src/hyperfiddle/rcf/impl.clj +++ b/src/hyperfiddle/rcf/impl.clj @@ -314,8 +314,8 @@ ;; Skip these DSLs, their macroexpansion is not rewritable as clojure. (defmethod ana/macroexpand-hook 'clojure.core/case [_ _ _ args] `(case ~@args)) (defmethod ana/macroexpand-hook 'cljs.core/case [_ _ _ args] `(case ~@args)) -(defmethod ana/macroexpand-hook 'clojure.core.async/go [_ _ _ args] `(clojure.core.async/go ~@args))(defmethod ana/macroexpand-hook 'clojure.core.async/go-loop [_ _ _ args] `(clojure.core.async/go-loop ~@args)) -(defmethod ana/macroexpand-hook 'cljs.core.async/go [_ _ _ args] `(cljs.core.async/go ~@args)) +(defmethod ana/macroexpand-hook 'clojure.core.async/go [_ _ _ args] (reduced `(clojure.core.async/go (do ~@args)))) +(defmethod ana/macroexpand-hook 'cljs.core.async/go [_ _ _ args] (reduced `(cljs.core.async/go (do ~@args)))) (defn quoted? [form] (and (seq? form) (= 'quote (first form))))