「ケース」でチャンネルを使用する

Question

(let [a (clojure.core.async/chan)] 
    (case a 
    a :foo 
    :bar)) 
#=> :bar 

ここには:fooがあります。私は間違って何をしていますか？

一方、(condp = chan ...)はジョブを実行します。

PS：

基本的に私は次のようなことやろうとしています：

(require '[clojure.core.async :as a]) 
(let [chan1 (a/chan 10) 
     chan2 (a/chan 10)] 
    (a/>!! chan1 true) 
    (let [[v c] (a/alts!! [chan1 chan2])] 
    (case c 
     chan1 :chan1 
     chan2 :chan2 
     :niether))) 
#=> :neither 

Answer 1

The docs for caseは、テストの定数が評価されていない答え

を持っています。それらはコンパイル時には リテラルでなければならず、引用符でくくる必要はありません。

正解がcondを使用することである。

(let [chan1 (ca/chan 10) 
     chan2 (ca/chan 10)] 
    (ca/>!! chan1 true) 
    (let [[v c] (ca/alts!! [chan1 chan2])] 
     (spyx (cond 
       (= c chan1) :chan1 
       (= c chan2) :chan2 
       :else :neither)))) 

;=> :chan1 

Answer 2

ケース句の左辺のため未評価試験定数を使用します。 chan1のようなプレーン記号は、その名前のローカルバインディングの値ではなく、同じ名前のシンボルと一致します。 chan1は一致します'chan1