~ chicken-core (chicken-5) 91490047de531ae286798532170e154e7f56ee8a
commit 91490047de531ae286798532170e154e7f56ee8a
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Sep 2 21:10:05 2020 +1200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Wed Oct 14 11:49:34 2020 +0200
Print message while fetching eggs in chicken-install
When running chicken-install there is often a long pause before any
output while remote egg sources are downloaded. For new users this may
be confusing as it seems like the program isn't doing anything. We
currently print informational messages for building and installing eggs,
so let's print one for fetching them as well, and make their indentation
consistent, i.e. no indentation.
Signed-off-by: felix <felix@call-with-current-continuation.org>
diff --git a/chicken-install.scm b/chicken-install.scm
index a3429610..3b54089a 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -471,6 +471,7 @@
(else name)))
(define (fetch-egg-sources name version dest lax)
+ (print "fetching " name)
(let loop ((locs default-locations))
(cond ((null? locs)
(let ((tmpdir (create-temporary-directory)))
@@ -844,7 +845,7 @@
(run-script dir bscript platform)
(unless (if (member name requested-eggs) no-install no-install-dependencies)
(check-installed-files name info)
- (print " installing " name)
+ (print "installing " name)
(run-script dir iscript platform sudo: sudo-install))
(when (and (member name requested-eggs)
run-tests
@@ -874,7 +875,7 @@
(print "building " name " (target)")
(run-script dir bscript platform)
(unless (if (member name requested-eggs) no-install no-install-dependencies)
- (print " installing " name " (target)")
+ (print "installing " name " (target)")
(run-script dir iscript platform)))))))))
(order-installed-eggs)))
Trap