                                        forms (.-value elm)
                                        evaluator (om/get-state owner :evaluator)]
                                    (println "I've been clicked! Sending\n"
-                                            forms "\nto\n" evaluator)
-                                   (js/log evaluator)
+                                            forms "\nto\n" evaluator
+                                            "which is" (if evaluator "" " not") " truthy")
                                    ;; I'm getting a warning about returning false from an event handler.
                                    ;; Q: Why?
                                    (if forms

    om/IWillUnmount
    (will-unmount
     [_]
     (let [evaluator (om/get-state owner :evaluator)]
       (async/close! evaluator)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Public

             (when-let [forms (<! evaluator)]
               ;; TODO: evaluate forms. Do this update inside the
               ;; callback of the evaluation instead
               (om/transact! data [:repls 0 :output]
                             (fn [xs]
                               (conj xs forms))))
             (recur)))))
