Changeset 177

Timestamp:

03/05/08 10:44:12 (17 years ago)

Author:

Magnus Henoch

Message:

Check that we don't pull from current repository

File:

• cl-darcs/trunk/cmdline.lisp (modified) (1 diff)

cl-darcs/trunk/cmdline.lisp ¶

@@ -316 +316 @@
         (setf from-repositories (list nil)))
 
+    ;; We can't pull from ourselves.
+    (when (member ourrepo from-repositories :test #'equal)
+      (error "Can't pull from current repository!"))
+
     (dolist (theirrepo from-repositories)
       (pull ourrepo theirrepo :select-patches (if all-patches :all :ask)))