Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-14 08:27:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Updating chicken install path to 8.

Browse source
This commit is contained in:
Alex Shinn 2017-01-14 14:54:06 +09:00
parent dc9284d47c
commit 396baa752f
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/chibi/snow/commands.scm
View file

@ -1294,7 +1294,7 @@
(list (list
(if (file-exists? dir) ; repository-path should always exist (if (file-exists? dir) ; repository-path should always exist
dir dir
(make-path (or (conf-get cfg 'install-prefix)) "lib" impl 7))))) (make-path (or (conf-get cfg 'install-prefix)) "lib" impl 8)))))
((gauche) ((gauche)
(list (list
(let ((dir (string-trim (let ((dir (string-trim
@ -1586,7 +1586,7 @@
((conf-get cfg 'install-library-dir)) ((conf-get cfg 'install-library-dir))
((eq? impl 'chicken) ((eq? impl 'chicken)
(cond ((conf-get cfg 'install-prefix) (cond ((conf-get cfg 'install-prefix)
=> (lambda (prefix) (make-path prefix "lib" impl 7))) => (lambda (prefix) (make-path prefix "lib" impl 8)))
(else (else
(car (get-install-dirs impl cfg))))) (car (get-install-dirs impl cfg)))))
((conf-get cfg 'install-prefix) ((conf-get cfg 'install-prefix)
@ -2197,6 +2197,11 @@
impl-cfgs))) impl-cfgs)))
(for-each (for-each
(lambda (impl cfg pkgs) (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 by name and dependency
(install-for-implementation repo impl cfg pkgs) (install-for-implementation repo impl cfg pkgs)
;; install by file ;; install by file

1
tests/snow/snow-tests.scm
View file

@ -41,6 +41,7 @@
(define chibi-path "./chibi-scheme") (define chibi-path "./chibi-scheme")
(define (snow-command . args) (define (snow-command . args)
`("./tools/snow-chibi" `("./tools/snow-chibi"
--verbose
--always-no --always-no
--implementations "chibi" --implementations "chibi"
--chibi-path ,(string-append chibi-path " -A" install-libdir) --chibi-path ,(string-append chibi-path " -A" install-libdir)