marginalia macro behavior

gistfile1.clj

(ns cljsh.core)

(defmacro dbg [x] `(let [x# ~x] (println '~x "=" x#)
                        x#))

(defn pythag [ x y] (* (* x x)
                       (* y y)))

(defn pythag [ x y]  (dbg (* (dbg (* x x))
                             (dbg (* y y)))))

(pythag 4 5)

######################
fred@ryleh:~/src/cljsh$ lein marg
Generating uberdoc for the following source files:
   /home/fred/src/cljsh/./src/cljsh/core.clj
(* x x) = 16
(* y y) = 25
(* (dbg (* x x)) (dbg (* y y))) = 400
Done generating your documentation, please see ./docs/uberdoc.html