From 8c84a00840e79f38e2d9dd501189208569436b72 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 20 Jun 2014 23:01:39 +0900 Subject: [PATCH] Supporting gauche install path. --- lib/chibi/snow/commands.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index c085596d..8368f7e7 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -27,10 +27,12 @@ (chibi (list 'chibi)) (else (find "chibi-scheme" 'chibi))) (find "foment" 'foment) + (find "gosh" 'gauche) + (find "guile" 'guile) (find "sagittarius" 'sagittarius))) (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))) (if (memq 'all requested) available @@ -790,6 +792,11 @@ (if share-dir (cons share-dir (delete share-dir dirs)) dirs))) + ((gauche) + (let ((dir (process->string '(gauche-config "--sitelibdir")))) + (and (string? dir) (> 0 (string-length dir)) + (eqv? #\/ (string-ref dir 0)) + dir))) ((guile) (let ((path (guile-eval