         (fn [this]
           (if this
             (if-not (identical? this ::drained)
+              ;; Weren't called to explicitly close
               (if-not (realized? stopper)
                 (do
+                  ;; The promise that tells us to stop hasn't
+                  ;; been fulfillef
                   (println "curve.server/event-loop-bottom Rotating"
                            #_(util/pretty (hide-long-arrays this))
                            "...this...")

;;; Public

(defn hide-long-arrays
  "Try to make pretty printing less obnoxious"
  [state]
  (-> state
      (assoc-in [::current-client ::message] "...")

            (try
              ;; Q: Do I want unhandled exceptions to be fatal errors?
              (let [modified-state (handle-incoming! this msg)]
                (println "Updated state based on incoming msg:"
                         (hide-long-arrays modified-state))
                modified-state)
              (catch clojure.lang.ExceptionInfo ex
                (println "handle-incoming! failed" ex (.getStackTrace ex))
