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

Supporting gauche install path.

Browse source
This commit is contained in:
Alex Shinn 2014-06-20 23:01:39 +09:00
parent 0438ad792e
commit 8c84a00840
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -27,10 +27,12 @@
(chibi (list 'chibi)) (chibi (list 'chibi))
(else (find "chibi-scheme" 'chibi))) (else (find "chibi-scheme" 'chibi)))
(find "foment" 'foment) (find "foment" 'foment)
(find "gosh" 'gauche)
(find "guile" 'guile)
(find "sagittarius" 'sagittarius))) (find "sagittarius" 'sagittarius)))
(define (conf-selected-implementations cfg) (define (conf-selected-implementations cfg)
(let ((requested (conf-get-list cfg 'implementations '(all))) (let ((requested (conf-get-list cfg 'implementations '(chibi)))
(available (available-implementations cfg))) (available (available-implementations cfg)))
(if (memq 'all requested) (if (memq 'all requested)
available available
@ -790,6 +792,11 @@
(if share-dir (if share-dir
(cons share-dir (delete share-dir dirs)) (cons share-dir (delete share-dir dirs))
dirs))) dirs)))
((gauche)
(let ((dir (process->string '(gauche-config "--sitelibdir"))))
(and (string? dir) (> 0 (string-length dir))
(eqv? #\/ (string-ref dir 0))
dir)))
((guile) ((guile)
(let ((path (let ((path
(guile-eval (guile-eval