~ chicken-core (chicken-5) e5f2223b0c2b9dfac51c2c8eb70dd298ae8aeca3

commit e5f2223b0c2b9dfac51c2c8eb70dd298ae8aeca3
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat May 22 00:49:08 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat May 22 00:49:08 2010 +0200

    chicken-install: -deploy with missing -prefix gives error

diff --git a/chicken-install.scm b/chicken-install.scm
index 1ad5f52b..5645c562 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -528,7 +528,9 @@ EOF
           (rx (regexp "([^:]+):(.+)")))
       (let loop ((args args) (eggs '()))
         (cond ((null? args)
-               (cond (update (update-db))
+               (cond ((and *deploy* (not *prefix*))
+		      (error "`-deploy' only makes sense in combination with `-prefix DIRECTORY`"))
+		     (update (update-db))
                      (else
                       (when (null? eggs)
                         (let ((setups (glob "*.setup")))