               (recur (into files (proto-dependencies proto-file))))))))))
 
 (defn modtime [dir]
-  (let [files (-> dir io/file file-seq rest)]
+  (let [files (->> dir io/file file-seq rest)]
     (if (empty? files)
       0
       (apply max (map fs/mod-time files)))))

(defn compile-google-protobuf
  "Compile com.google.protobuf.*"
  [project]
  (let [proto-files (io/file "proto/google/protobuf")
        target (target project)]
    (.mkdirs proto-files)
    (io/copy (io/file target srcdir "src/google/protobuf/descriptor.proto")
             (io/file proto-files "descriptor.proto"))
    (protoc project
            ["google/protobuf/descriptor.proto"]
            (io/file target srcdir "java/src/main/java"))))

(defn compile
  "Compile protocol buffer files located in proto dir."

           dest-path (.getPath dest)
           proto-path (.getAbsoluteFile (io/file (or (:proto-path project) "proto")))]
       (when (or (> (modtime proto-path) (modtime dest))
                 (> (modtime proto-path) (modtime (str target "/classes"))))
         (.mkdirs dest)
         (.mkdirs proto-path)
         (doseq [proto protos]
