   (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")
+  (println "  See https://github.com/maddenp/revdiff for notes on options.\n")
   (System/exit code))
 
 ;; If object is a uri, the "-rn:m" revision-range format will not work if object

                          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]

          :when (seq (:attrs e))]
    (:revision (:attrs e)))))

;; 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 get-revpairs [revlist object]
  (when (seq (rest revlist))
    (concat (list (first (rest revlist)) (first revlist))
            (get-revpairs (rest revlist) object))))

;; Return a string containing the xml-formatted svn log for the requested
;; object.

