[Cl-darcs-cvs] r176 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Wed Mar  5 05:39:39 2008
New Revision: 176

Modified:
   cl-darcs/trunk/cmdline.lisp
Log:
Change default repository when pulling


Modified: cl-darcs/trunk/cmdline.lisp
==============================================================================
--- cl-darcs/trunk/cmdline.lisp	(original)
+++ cl-darcs/trunk/cmdline.lisp	Wed Mar  5 05:39:39 2008
@@ -318,4 +318,8 @@
     (dolist (theirrepo from-repositories)
       (pull ourrepo theirrepo :select-patches (if all-patches :all :ask)))
 
+    ;; Change the default repository.
+    (when (first from-repositories)
+      (set-default-repo ourrepo (upath-to-string (first from-repositories))))
+
     0))