gistfile1.clj

  (defmacro new-if [pred then-clause else-clause]
    `(cond ~pred ~then-clause
           :else ~else-clause))
           
"This works, in that if I call it like so:
"

(new-if (= 2 3) (while true (print "hi"))  :bye)

"I don't get an infinite loop, but I don't understand how. I've unquoted 
 everything in the macro body, so shouldn't the normal evaluation order 
 apply? Why doesn't it evaluate then-clause when I do it this way?
"

I think I'll have more luck doing it with Scheme's define-syntax.