     (go (while true
           (let [state (<! state-chan)]
             (if (predicate state)
-              (reaction robot reaction-complete-chan)))))
+              (reaction robot state reaction-complete-chan)))))
     (go (while true
           (let [done (<! reaction-complete-chan)]
             (>! percept-chan (percept done)))))

  (> (get-in state [:sv :phys-anger] 0.0) 0.75))

(defn anger-reaction
  [robot complete-chan]
  (nao/run-behaviour robot "dsnowdon-angry" complete-chan))

(defn anger-reaction-percept

          hand-chan (chan)
          foot-chan (chan)
          clients-atom (atom [display-chan])]
      (nao/set-volume robot (Float. 1.0))
      (nao/say robot "I'm starting to feel quite emotional")
      (let [ev-robot
            (-> robot
