                           filename (trim (first all-lines))]
                       (if (some matching-line-in? changes) filename)))))))
 
-;; Return a sequence of revision pairs for potential comparison -- e.g. for the
-;; revlist (9 8 6 4 1), return (8 9 6 8 4 6 1 4).
-
-(defn revpairs [revlist object]
-  (when (seq (rest revlist))
-    (concat (list (first (rest revlist)) (first revlist))
-            (revpairs (rest revlist) object))))
-
 ;; NEED NEW COMMENT HERE
 
 (defn svndiff [r1 r2 filename object]

  (println (str summary "\n"))
  (println "  object: svn URI or name of versioned object in working-copy")
  (println "  regexp: only show diffs where a changed line matches regexp\n")
  (System/exit code))

;; If object is a uri, the "-rn:m" revision-range format will not work if object

    (if (:help options) (usage summary 0))
    (if (not object)
      (usage summary 1)
      (let [revpairs (get-revpairs (get-revlist optsl object) object)]
        (diffrevpairs object filt revpairs)
        (shutdown-agents)))))
