Lisp macro example - writing if in terms of cond

if-macro.clj

(defmacro if-macro [pred truth-body false-body]
  (cond
    pred truth-body
    :else false-body))

(defn if-fn [pred truth-body false-body]
  (cond
    pred truth-body
    :else false-body))

(if-macro (= 1 1)
          "tis true"
          (print "tis false"))
;;=> "tis true"

(if-fn (= 1 1)
       "tis true"
       (print "tis false"))
;;=> tis false
;;   "tis true"