~ chicken-core (chicken-5) 6bca0f85756b240cb5038608761f68573ffa9241
commit 6bca0f85756b240cb5038608761f68573ffa9241
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Sep 2 21:10:05 2020 +1200
Commit: Mario Domenech Goulart <mario@parenteses.org>
CommitDate: Sat Jan 2 00:16:02 2021 +0100
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: Mario Domenech Goulart <mario@parenteses.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