1
0
mirror of https://github.com/janet-lang/janet synced 2024-06-16 02:09:56 +00:00

Be less eager to set macro-form in macex1.

This commit is contained in:
Calvin Rose 2020-05-18 18:37:41 -05:00
parent 9e5f203302
commit 92f0e1719b

View File

@ -1633,8 +1633,6 @@
See macex docs for info on on-binding."
[x &opt on-binding]
(setdyn :macro-form x)
(when on-binding
(when (symbol? x)
(break (on-binding x))))
@ -1714,7 +1712,7 @@
(def m? (entry :macro))
(cond
s (s t)
m? (m ;(tuple/slice t 1))
m? (do (setdyn :macro-form t) (m ;(tuple/slice t 1)))
(tuple/slice (map recur t))))
(def ret