           (log/info (str "Saved lib to: " path))
           path)))))
 
-(defn load-library
+(defn- load-library
   "Loads the given path (string) as a native library."
   [s]
   (let [file_path (save-library s)]

                         (str "Unsupported platform: " os-name ", " os-arch
                              " for library " s))))))

(defn copy-stream
  "Copies in to out."
  [^java.io.InputStream in ^java.io.OutputStream out]
  (with-local-vars [buf (byte-array (* 16 1024))]

          (.write out buf 0 cnt)
          (recur))))))

(defn- save-library
  [s]
  (let [lib-name (os-specific-path s)
        lib-path (str "/native/" lib-name)
