                          (str "Unsupported platform: " os-name ", " os-arch
                               " for library " s))))))
 
-(defn copy-stream
+(defn- copy-stream
   "Copies in to out."
   [^java.io.InputStream in ^java.io.OutputStream out]
   (with-local-vars [buf (byte-array (* 16 1024))]

          (log/info (str "Saved lib to: " path))
          path)))))

(defn load-library
  "Loads the given path (string) as a native library."
  [s]
  (let [file_path (save-library s)]

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

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