Author: mhenoch Date: Thu Aug 31 20:22:13 2006 New Revision: 38 Modified: cl-darcs/trunk/pull.lisp Log: Use write-patch-to-repo when pulling Modified: cl-darcs/trunk/pull.lisp ============================================================================== --- cl-darcs/trunk/pull.lisp (original) +++ cl-darcs/trunk/pull.lisp Thu Aug 31 20:22:13 2006 @@ -34,7 +34,7 @@ (dolist (p only-theirs) (format t "~& - ~A" p)) ;; XXX: This is where we pick which of their patches we want to - ;; pull. And copy them to our repo. + ;; pull. (let* ((their-patches (mapcar (lambda (pi) (read-patch-from-repo theirrepo pi)) @@ -54,5 +54,6 @@ ;; If this is not a named patch, our assumptions are ;; challenged. (append-inventory ourrepo (named-patch-patchinfo p)) + (write-patch-to-repo p ourrepo) (format t "."))))) (format t "~&All done"))