transactions - 在 Clojure 中计算中止的事务

Question

我想分析 Clojure 程序与 C 语言锁定版本的行为。我想跟踪的一个指标是 Clojure 程序中止事务的总数。

唯一的问题是我无法在我所在的事务上下文之外改变变量。我想做的是:

(dosync
(try
  (alter my_num inc)
  (catch Throwable t
    (do
      (alter total_aborts inc)
      (println "Caught " (.getClass t))
      (throw t)))))

当然，如果事务没有完成，total_aborts将永远不会增加!那么我该怎么做呢？谢谢!

Answer 1

您可以设置 my-num 和 total-aborts atoms并使用 swap! 而不是 alter。