Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

determining chicken-binary-version from (##sys#fudge 42)

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

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

@ -1271,6 +1271,11 @@
;; If multiple implementations are targeted, we install separately but
;; use the same confirmations for each.
(define (get-chicken-binary-version cfg)
(or (conf-get cfg 'chicken-binary-version)
(string->number (process->string '(csi -p "(##sys#fudge 42)")))
8))
(define (get-install-dirs impl cfg)
(define (guile-eval expr)
(guard (exn (else #f))
@ -1294,7 +1299,8 @@
(list
(if (file-exists? dir) ; repository-path should always exist
dir
(make-path (or (conf-get cfg 'install-prefix)) "lib" impl 8)))))
(make-path (or (conf-get cfg 'install-prefix)) "lib" impl
(get-chicken-binary-version cfg))))))
((gauche)
(list
(let ((dir (string-trim
@ -1586,7 +1592,9 @@
((conf-get cfg 'install-library-dir))
((eq? impl 'chicken)
(cond ((conf-get cfg 'install-prefix)
=> (lambda (prefix) (make-path prefix "lib" impl 8)))
=> (lambda (prefix)
(make-path prefix "lib" impl
(get-chicken-binary-version cfg))))
(else
(car (get-install-dirs impl cfg)))))
((conf-get cfg 'install-prefix)