mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-06-16 10:19:55 +00:00
Code Issues 1 Releases Wiki Activity

Fix macex1 to keep syntax location for all tuples - Address #1404

Browse Source
This commit is contained in:
Calvin Rose 2024-02-17 13:34:23 -06:00
parent 9e0daaee09
commit 7a2868c147
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/boot/boot.janet
View File

@ -2136,9 +2136,9 @@
(def m (do (def r (get entry :ref)) (if r (in r 0) (get entry :value)))) (def m (do (def r (get entry :ref)) (if r (in r 0) (get entry :value))))
(def m? (in entry :macro)) (def m? (in entry :macro))
(cond (cond
s (s t) s (keep-syntax t (s t))
m? (do (setdyn *macro-form* t) (m ;(tuple/slice t 1))) m? (do (setdyn *macro-form* t) (m ;(tuple/slice t 1)))
(tuple/slice (map recur t)))) (keep-syntax! t (map recur t))))
(def ret (def ret
(case (type x) (case (type x)