[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-hackers] [PATCH] Print "chicken-install -repository" after proc
From: |
Evan Hanson |
Subject: |
[Chicken-hackers] [PATCH] Print "chicken-install -repository" after processing all arguments |
Date: |
Mon, 22 Feb 2016 14:04:40 +1300 |
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
- [Chicken-hackers] [PATCH] Print "chicken-install -repository" after processing all arguments,
Evan Hanson <=