   (> (get-in state [:sv :soc-lonely] 0.0) 0.5))
 
 (defn lonely-reaction
-  [robot complete-chan]
+  [robot state complete-chan]
   (->
    (nao/say robot "Is anyone there? I'm feeling lonely.")
    (nao/future-callback-wrapper

  (> (get-in state [:sv :saf-bored] 0.0) 0.75))

(defn bored-reaction
  [robot complete-chan]
  (->
   (nao/say robot "Ho hum! I'm bored.")
   (nao/future-callback-wrapper
    (nao/callback->channel complete-chan))))

(defn bored-reaction-percept
  [done-signal]

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