~ chicken-core (chicken-5) 10b3a533963841b55f984e5556afbb444b6a77af
commit 10b3a533963841b55f984e5556afbb444b6a77af
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Aug 6 18:25:19 2014 +1200
Commit: Peter Bex <peter.bex@xs4all.nl>
CommitDate: Thu Aug 7 21:57:35 2014 +0200
Make chicken-install write "(none)" to stderr when no eggs are matched
Signed-off-by: Peter Bex <peter.bex@xs4all.nl>
diff --git a/chicken-status.scm b/chicken-status.scm
index c3a99c77..b0b0f0cd 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -168,7 +168,7 @@ EOF
(else (map ##sys#glob->regexp pats)))))
(eggs/exts ((if eggs gather-eggs gather-extensions) patterns)))
(if (null? eggs/exts)
- (print "(none)")
+ (display "(none)\n" (current-error-port))
((cond (eggs list-installed-eggs)
(files list-installed-files)
(else list-installed-extensions))
Trap