Clojurescript core-async：go里面的异步条件

Question

我有ClojureScript Core-Async的问题。 这只发生在ClojureScript中而不是Clojure中。

我有以下代码：

(defn cc [x]
  (go 
    (println "cc: " x)
    x))

(defn foo [x]
  (go
    (when (and (= :ok (<! (cc x)))
               (= :ok (<! (cc :ok))))
      (print "after and"))))

(foo 1)
(foo :ok)

当调用(foo :ok) ，结果如预期的那样 - 函数cc被调用两次，控制台cc: :ok cc: :ok after and显示cc: :ok cc: :ok after and 。 但是，当运行(foo 1) ，函数cc也会运行两次，控制台显示cc: 1 cc: :ok 。 因此，即使第一个条件没有满满，第二个条件仍然被检查！

Answer 1

这显然是ClojureScript core.async库的一个错误。 我为此开了一个Jira问题 。

与此同时，我通过使用以下方法解决了这个问题：

(go
  (when (= :ok (<! (cc x))
    (when (= :ok (<! (cc :ok)))
      (print "after and")))))