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 ;; If multiple implementations are targeted, we install separately but
;; use the same confirmations for each. ;; 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 (get-install-dirs impl cfg)
(define (guile-eval expr) (define (guile-eval expr)
(guard (exn (else #f)) (guard (exn (else #f))
@ -1294,7 +1299,8 @@
(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 8))))) (make-path (or (conf-get cfg 'install-prefix)) "lib" impl
(get-chicken-binary-version cfg))))))
((gauche) ((gauche)
(list (list
(let ((dir (string-trim (let ((dir (string-trim
@ -1586,7 +1592,9 @@
((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 8))) => (lambda (prefix)
(make-path prefix "lib" impl
(get-chicken-binary-version cfg))))
(else (else
(car (get-install-dirs impl cfg))))) (car (get-install-dirs impl cfg)))))
((conf-get cfg 'install-prefix) ((conf-get cfg 'install-prefix)