Clojure - macro try-catch

gistfile1.clj

;; Approach 1, verbose

(defmacro try-catch [[lvl-fn fn] body] 
  (list 'try body 
    (list 'catch 'Exception 'e
      (list lvl-fn 'e
        (list ':name (list 'meta '#'fn))))))

(macroexpand '(try-catch [info foo] (reduce + 0 (range 5))))

;;=> (try (reduce + 0 (range 5)) (catch Exception e (info e (:name (meta (var fn))))))


;; Approach 2, syntax-quote

(defmacro try-catch [[lvl-fn fn] body]
  `(try
    ~body 
    (catch Exception e#
      (~lvl-fn e# (str "Exception thrown trying to " (:name (meta #'~fn)))))))

(macroexpand '(try-catch [info foo] (throw (new Exception "test"))))

;;=> (try (throw (new Exception "test")) (catch java.lang.Exception e__1427__auto__ (info e__1427__auto__ (clojure.core/str "Exception thrown trying to " (:name (clojure.core/meta (var foo)))))))