clojure - 如何在 Clojure 宏中包装异常？

Question

我想包装系统或用户抛出的异常(无关紧要)并强制它返回一些值。

我为它写了宏，但它不起作用。

宏:

(defmacro safe-fn
  [form]
  (try
    `(do ~form)
    (catch Throwable e
      1)))

用法:(safe-fn (throw (RuntimeException. "Try me!")))

实际输出:RuntimeException 试试我! clojure-brave-and-true.core/eval2219 (form-init6122238559239237921.clj:1)

期望的输出:1

Answer 1

宏只是返回待评估代码的函数，因此您可以这样编写 safe-fn:

(defmacro safe-fn
  [form]
  `(try
     ~form
     (catch Throwable ~'_
       1)))

例子:

(safe-fn (throw (RuntimeException. "Try me!")))
;=> 1

请参阅我对 this question 的回答有关宏的更多详细信息，特别是有关使用它们捕获异常的信息。