From 396baa752f1d69d6ce23785489c29327822926e3 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 14 Jan 2017 14:54:06 +0900 Subject: [PATCH] Updating chicken install path to 8. --- lib/chibi/snow/commands.scm | 9 +++++++-- tests/snow/snow-tests.scm | 1 + 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index 785f8264..f9e698fc 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -1294,7 +1294,7 @@ (list (if (file-exists? dir) ; repository-path should always exist dir - (make-path (or (conf-get cfg 'install-prefix)) "lib" impl 7))))) + (make-path (or (conf-get cfg 'install-prefix)) "lib" impl 8))))) ((gauche) (list (let ((dir (string-trim @@ -1586,7 +1586,7 @@ ((conf-get cfg 'install-library-dir)) ((eq? impl 'chicken) (cond ((conf-get cfg 'install-prefix) - => (lambda (prefix) (make-path prefix "lib" impl 7))) + => (lambda (prefix) (make-path prefix "lib" impl 8))) (else (car (get-install-dirs impl cfg))))) ((conf-get cfg 'install-prefix) @@ -2197,6 +2197,11 @@ impl-cfgs))) (for-each (lambda (impl cfg pkgs) + (when (conf-get cfg 'verbose?) + (if (pair? pkgs) + (info `(installing packages: ,(map package-name pkgs) for ,impl))) + (if (pair? package-files) + (info `(installing files: ,package-files for ,impl)))) ;; install by name and dependency (install-for-implementation repo impl cfg pkgs) ;; install by file diff --git a/tests/snow/snow-tests.scm b/tests/snow/snow-tests.scm index 72592d48..a918f195 100644 --- a/tests/snow/snow-tests.scm +++ b/tests/snow/snow-tests.scm @@ -41,6 +41,7 @@ (define chibi-path "./chibi-scheme") (define (snow-command . args) `("./tools/snow-chibi" + --verbose --always-no --implementations "chibi" --chibi-path ,(string-append chibi-path " -A" install-libdir)