[Chicken-hackers] [PATCH] Print "chicken-install -repository" after processing all arguments

[Evan Hanson]

Without this, the sanity check that requires a prefix to be given when
the "-deploy" option is used is never triggered, and running the command
"chicken-install -deploy -repository" just prints "#f".
---
 chicken-install.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/chicken-install.scm b/chicken-install.scm
index f13a1f4..7420160 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -854,6 +854,7 @@ EOF
     (let ((update #f)
          (scan #f)
          (listeggs #f)
+         (print-repository #f)
           (rx (irregex "([^:]+):(.+)")))
       (setup-proxy (get-environment-variable "http_proxy"))
       (let loop ((args args) (eggs '()))
@@ -862,7 +863,8 @@ EOF
                 (unless *prefix*
                   (error
                    "`-deploy' only makes sense in combination with `-prefix 
DIRECTORY`")))
-               (cond (update (update-db))
+              (cond (print-repository (print (repo-path)))
+                    (update (update-db))
                     (scan (scan-directory scan))
                      (else
                      (let ((defaults (load-defaults)))
@@ -915,8 +917,8 @@ EOF
                             (string=? arg "--help"))
                         (usage 0))
                        ((string=? arg "-repository")
-                        (print (repo-path))
-                        (exit 0))
+                        (set! print-repository #t)
+                        (loop (cdr args) eggs))
                        ((string=? arg "-force")
                         (set! *force* #t)
                         (loop (cdr args) eggs))
-- 
2.7.0.rc3