some code @trptcolin wrote to help me understand macros

thanks_colin.clj

(def x (atom 1))

(defmacro foo []
   (let [times @x
         prints (map (fn [_] `(println "hello world")) (range times))]
       `(do ~@prints)))

(defn foo-caller [] (foo))


; will the output change or stay the same?
; it stays the same because macroexpansion happened when foo-caller was defined
(swap! x inc)
(foo-caller)
(swap! x inc)
(foo-caller)
(swap! x inc)
(foo-caller)