     (socket address port))
   ;; Start dedicated thread to read messages from socket
   (start-reading-messages repl-env opts))
-
-(defn reconnect [repl-env opts]
-  ((print-fn opts) "Reconnecting ...")
-  (let [bonjour-name @(:bonjour-name repl-env)
-        endpoint (resolve-bonjour bonjour-name 15000)]
-    (if endpoint
-      (let [endpoint-address (.getHostAddress (:address endpoint))
-            endpoint-port (:port endpoint)]
-        (mount-webdav repl-env bonjour-name endpoint-address endpoint-port)
-        (set-up-socket repl-env opts endpoint-address (dec endpoint-port)))
-      ((print-fn opts) "Failed to reconnect."))))
 
 (defn setup
   [repl-env opts]

      #(try
        (let [rv (read-messages (:in @(:socket repl-env)) (:response-promise repl-env) opts)]
          (when (= :eof rv)
            (close-socket @(:socket repl-env))
            (reconnect-if repl-env)))
        (catch IOException _
          (reconnect-if repl-env))))))

(defn stack-line->canonical-frame
  "Parses a stack line into a frame representation, returning nil

      (tear-down repl-env)
      (throw t))))

(defrecord JscEnv [response-promise bonjour-name webdav-mount-point socket options]
  repl/IReplEnvOptions
  (-repl-options [this]
    {:require-foreign true})
