    om/IWillUnmount
    (will-unmount
     [_]
-    (let [evaluator (om/get-state owner :evaluated)]
-      (async/close! evaluator)))))
+    (comment (let [evaluator (om/get-state owner :evaluated)]
+               (async/close! evaluator))))))
 
 (defn reader
   [data owner]

    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)))))
