               (#'nrepl/take-until
                 #(and (= command-id (:id %))
                       (some #{"done" "interrupted" "error"} (:status %)))
-                response-seq)]
+                (session-responses session))]
         (do
           (when (some #{"need-input"} (:status res))
             (.readLine *in*) ; pop off leftover newline from pushback

(ns reply.eval-modes.nrepl
  (:require [clojure.tools.nrepl.cmdline :as nrepl.cmdline]
            [clojure.tools.nrepl :as nrepl]
            [clojure.tools.nrepl.misc :as nrepl.misc]

                        ns)))
          options (if (:color options)
                    (merge options nrepl.cmdline/colored-output)
                    options)]
      (.start (Thread.
        (fn []
          (when-let [{:keys [out err] :as resp}
                  (nrepl.transport/recv connection 100)]
            (when err (print err))
            (when out (print out))
            (when-not (or err out)
              (.offer (@response-queues (:session resp)) resp))
            (flush))
          (recur))))
      (execute-with-client
               client
               (assoc options :value (constantly nil))
