Clojure - retry function

defnretryable.clj

(defmacro defnretryable [fname args & body]
  `(def ~fname (fn ~args (loop [n# 5]
                           (when-not (neg-int? n#)
                             (if-let [result# (try [~@body]
                                                   (catch Exception e#
                                                     (if (zero? n#)
                                                       (throw e#)
                                                       (println "Retry " ~fname))))]
                               (last result#)
                               (recur (dec n#))))))))