Question

在我的代码中，我广泛使用线程宏。有时虽然我想记录宏中的一个或多个值。例如，

(-> val
    (fn-1)
    (fn-2)
    (fn-3))

在这里，假设我要记录fn-2的结果。我该怎么做呢？

我尝试了两种方法：

将trace放在fn-2之后。
在fn-2之后添加一个匿名函数，如#(do (log/debug %) %)。

使用trace似乎并不理想，因为它无法与真正的记录器集成。滚动你自己的功能似乎也不理想。

这里的最佳做法是什么？

Answer 1

你可以创建一个更高阶debug函数，用你想要的任何逻辑包装你的函数。以下是简单打印的示例：

(defn debug
  ([v d bmf] (debug v d bmf nil))
  ([v f before-msg-fmt amf]
   (let [r (f v)]
     (println (format before-msg-fmt v)
              (str (when amf (format amf r))))
     r)))

所以用以下函数调用它：

(def fn1 identity)
(def fn2 inc)
(def fn3 (fn[x] (* x 3)))

(-> 5
    (debug fn1 "here! %s")
    (debug fn2 "old val: %s" "new val: %s")
    fn3)

可生产

here! 5 
old val: 5 new val: 6
=> 18

在线程宏中记录值的惯用方法是什么？

1 个答案: