~ chicken-core (chicken-5) dbab26ec540ed1865c3bbaff046fb5ebcd991c57
commit dbab26ec540ed1865c3bbaff046fb5ebcd991c57
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Apr 29 12:07:46 2017 +0200
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Sat Apr 29 23:34:27 2017 +1200
chicken-status: make -all the default behaviour
Signed-off-by: Evan Hanson <evhan@foldling.org>
diff --git a/chicken-status.mdoc b/chicken-status.mdoc
index 11790ed5..6196f891 100644
--- a/chicken-status.mdoc
+++ b/chicken-status.mdoc
@@ -49,8 +49,6 @@ The program accepts following arguments:
Show usage and exit.
.It Fl version
Show version and exit.
-.It Fl a , Fl all
-Scan all repositories in CHICKEN_REPOSITORY_PATH.
.It Fl c , Fl components
List installed components.
.It Fl f , Fl files
diff --git a/chicken-status.scm b/chicken-status.scm
index 75e5d467..2fb54c53 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -43,13 +43,11 @@
(define host-extensions #t)
(define target-extensions #t)
- (define all-repos #f)
(define (repo-path)
- (cond ((and cross-chicken (not host-extensions))
- (list (destination-repository 'target)))
- (all-repos (##sys#split-path (repository-path)))
- (else (list (destination-repository 'host)))))
+ (if (and cross-chicken (not host-extensions))
+ (list (destination-repository 'target))
+ (##sys#split-path (repository-path))))
(define (find-in-repo name)
(let loop ((dirs (repo-path)))
@@ -232,9 +230,6 @@ EOF
((string=? arg "-match")
(set! mtch #t)
(loop (cdr args) pats))
- ((member arg '("-a" "-all"))
- (set! all-repos #t)
- (loop (cdr args) pats))
((string=? arg "-list")
(set! dump #t)
(loop (cdr args) pats))
diff --git a/manual/Extensions b/manual/Extensions
index 9ece18b9..25bc75bb 100644
--- a/manual/Extensions
+++ b/manual/Extensions
@@ -598,7 +598,6 @@ Available options:
; {{-h -help}} : show usage information and exit
; {{-version}} : show version and exit
-; {{-a -all}} : Scan all repositories in {{CHICKEN_REPOSITORY_PATH}}
; {{-f -files}} : list installed files
; {{-match}} : treat egg-names as glob patterns
; {{-host}} : when cross-compiling, show eggs for host system only
Trap