Clojure 如何停止所有 go 块或关闭 core.async 中的所有通道

Question

当我从 repl 中使用 core.async 时，我经常会因为我重新加载命名空间而失去了用于停止它的通道，所以 go 块会远离我。例如，如果我从 repl 运行它：

(go (when (not= c (second (async/alts! [c (async/timeout 1000)]))) 
      (println "hello")))

然后我重新加载命名空间并且 c 丢失了。现在我有“你好”向我的 REPL 发送垃圾邮件，直到时间结束。如果我可以关闭所有频道或杀死所有 go 块，它将节省我重新启动我的 REPL。

Answer 1

据我所知，没有办法在全球范围内做到这一点。一种技术是使用可用于关闭任何环路的控制通道。 pub/sub 的东西可能适用于全局控制通道。