 ;; pathname) we can use item; if it was the uri to a directory, we have to
 ;; concatenate the item and index to form a complete pathname.
 
-(defn diff [r1 r2 index item]
+(defn svndiff [r1 r2 index item]
   (let [r (re-pattern (str "^.*/" index "$"))
         p (if (uri? item)
             (if (re-matches r item) item (str item "/" index))


(defn diffrevpairs [item term revpairs]
  (when (seq revpairs)
    (let [r1 (first revpairs) r2 (first (rest revpairs)) fd (filediffs r1 r2 term item)]
      (println (str "Checking: r" r1 " vs r" r2))
      (doseq [index fd] (diff r1 r2 index item))
      (diffrevpairs item term (rest (rest revpairs))))))

(defn usage []

;; copy to avoid following the history of a differently-named object.

(defn log [item] (:out (sh "svn" "log" shhh "--stop-on-copy" "--xml" item)))
;;(defn log [item] (slurp "xml"))

;; Try to explain why this has failed.

