 ;; (if any) is present on a changed line in that pair. If no filter term is
 ;; given, diff all changed files from all revision pairs.
 
-(defn diffrevpairs [object filt revpairs show insens]
+(defn diff-revpairs [object filt revpairs show insens]
   (when (seq revpairs)
     (let [r1 (first revpairs)
           r2 (first (rest revpairs))
           mf (matching-files r1 r2 object filt show insens)]
       (println (str "Checking: r" r1 " vs r" r2))
       (doseq [filename mf] (svndiff r1 r2 filename object show))
-      (diffrevpairs object filt (rest (rest revpairs)) show insens))))
+      (diff-revpairs object filt (rest (rest revpairs)) show insens))))
 
 ;; Try to explain why this has failed.
 

      (usage summary 1)
      (let [revlist (get-revlist optsl show object)
            revpairs (get-revpairs revlist object)]
        (diffrevpairs object filt revpairs show insens)
        (shutdown-agents)))))

;; TODO make diff-revpairs non-recursive?

(ns revdiff.core
  (:gen-class)
