   (let* ((c (read-from-string string))
          (n (car c)))
     (if (integerp n) n 0)))
+
+(declare-function vc-annotate-convert-time "vc-annotate" (time))
 
 (defun vc-darcs-annotate-command (file buffer &optional rev)
   "Produce an annotated display of fiLE in BUFFER.

  "Revert FILE back to the current workfile version."
  (vc-darcs-do-command "revert" 0 file "-a"))

(defun vc-darcs-print-log (file)
  "Print the logfile for the current darcs repository to the *vc* buffer."
  (vc-darcs-do-command 'changes 'async (and (not vc-darcs-full-log) file)))

(defun vc-darcs-diff (file &optional rev1 rev2 buffer)
  "Show the differences in FILE between revisions REV1 and REV2."

             (list "--to-patch" rev))))
    (let ((changes (apply #'vc-darcs-changes file flags)))
      (cadr changes))))

(defun vc-darcs-revision-granularity () 'repository)

(defun vc-darcs-registered (file)
  "Return non-nil if FILE is handled by darcs."
