clojure - 如何在Clojure的STM中查看回滚的数量？

Question

如何在Clojure的STM中查看回滚的数量？

Answer 1

你不能...除非你愿意作弊：

(defmacro spy-dosync [& body]
  `(let [retries# (atom -1)
         result# (dosync
                   (swap! retries# inc)
                   ~@body)]
     (println "retries count:" @retries#)
     result#))

然后将您的dosync替换为spy-dosync。