             [pandect.core :as p]
             [clojure.java.io :as io]))
 
-(defn os-specific-path
+(defn- os-specific-path
   "Finds the OS specific path for the given library name."
   [s]
   (let [os-arch (. (System/getProperty "os.arch") toLowerCase)

                         (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)
