 
 (defn print-discovered-devices [name-endpoint-map opts]
   (if (empty? name-endpoint-map)
-    ((:print opts) "(No devices)")
+    ((println-fn opts) "(No devices)")
     (doseq [[choice-number [bonjour-name _]] (name-endpoint-map->choice-list name-endpoint-map)]
-      ((:print opts) (str "[" choice-number "] " (bonjour-name->display-name bonjour-name))))))
+      ((println-fn opts) (str "[" choice-number "] " (bonjour-name->display-name bonjour-name))))))
 
 (defn discover-and-choose-device
   "Looks for Ambly WebDAV devices advertised via Bonjour and presents

           [java.io File BufferedReader BufferedWriter IOException]
           (javax.jmdns JmDNS ServiceListener)))

(defn set-logging-level [logger-name level]
  (.setLevel (java.util.logging.Logger/getLogger logger-name) level))


          output-dir (io/file webdav-mount-point)
          env (ana/empty-env)
          core (io/resource "cljs/core.cljs")]
      ((println-fn opts) "\nConnecting to" (bonjour-name->display-name bonjour-name) "...\n")
      (reset! (:webdav-mount-point repl-env) webdav-mount-point)
      (when (.exists output-dir)
        (shell/sh "umount" webdav-mount-point))
