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

Merge pull request #563 from fisherro/chicken-5-support

Browse source 
Change snow-chibi to work with Chicken 5
This commit is contained in:
Alex Shinn 2019-08-31 22:37:50 +08:00 • committed by GitHub
commit 00d084414e
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -5,7 +5,7 @@
(define known-implementations
'((chibi "chibi-scheme" (chibi-scheme -V) "0.7.3")
(chicken "chicken" (csi -p "(chicken-version)") "4.9.0")
(chicken "chicken" (csi -release) "4.9.0")
(cyclone "cyclone" (icyc -vn) "0.5.3")
(foment "foment")
(gauche "gosh" (gosh -E "print (gauche-version)" -E exit) "0.9.4")
@ -1287,6 +1287,16 @@
(string->number (process->string '(csi -p "(##sys#fudge 42)")))
8))
(define (get-chicken-repo-path)
(let ((release (string-trim (process->string '(csi -release))
char-whitespace?)))
(string-trim
(if (string-prefix? "4." release)
(process->string '(csi -p "(repository-path)"))
(process->string
'(csi -R chicken.platform -p "(car (repository-path))")))
char-whitespace?)))
(define (get-install-dirs impl cfg)
(define (guile-eval expr)
(guard (exn (else #f))
@ -1304,9 +1314,7 @@
(cons share-dir (delete share-dir dirs))
dirs)))
((chicken)
(let ((dir (string-trim
(process->string '(csi -p "(repository-path)"))
char-whitespace?)))
(let ((dir (get-chicken-repo-path)))
(list
(if (file-exists? dir) ; repository-path should always exist
dir