From 92f0e1719b733ca3e94490043a2069658c620a5c Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Mon, 18 May 2020 18:37:41 -0500
Subject: [PATCH] Be  less eager to set macro-form in macex1.

---
 src/boot/boot.janet | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/boot/boot.janet b/src/boot/boot.janet
index 87aa8c60..9299139b 100644
--- a/src/boot/boot.janet
+++ b/src/boot/boot.janet
@@ -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