Skip to content

Commit 3c0c775

Browse files
anmonteirodnolen
authored andcommitted
CLJS-2015: Self-host: defmacro should return the Var
1 parent c488bfe commit 3c0c775

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/main/clojure/cljs/core.cljc

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3120,9 +3120,9 @@
31203120
(if p
31213121
(recur (next p) (cons (first p) d))
31223122
d))]
3123-
(core/list 'do
3124-
(cons `defn decl)
3125-
(core/list 'set! `(. ~name ~'-cljs$lang$macro) true))))
3123+
`(let [ret# ~(cons `defn decl)]
3124+
(set! (. ~name ~'-cljs$lang$macro) true)
3125+
ret#)))
31263126

31273127
#?(:clj (. (var defmacro) (setMacro))
31283128
:cljs (set! (. defmacro -cljs$lang$macro) true))

0 commit comments

Comments
 (0)