mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-24 17:27:18 +00:00
Code Issues 1 Releases Wiki Activity

Be less eager to set macro-form in macex1.

Browse Source
This commit is contained in:
Calvin Rose 2020-05-18 18:37:41 -05:00
parent 9e5f203302
commit 92f0e1719b
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/boot/boot.janet
View File

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