diff --git a/doc/chibi.scrbl b/doc/chibi.scrbl index 9c4e3b65..0568492a 100755 --- a/doc/chibi.scrbl +++ b/doc/chibi.scrbl @@ -1673,6 +1673,7 @@ installed. The following are currently supported: \item{mosh - version >= 0.29-rc1} \item{racket - version >= 8.16 with the \scheme{r7rs} pkg} \item{sagittarius - version >= 0.9.13} +\item{skint - version > 0.6.7} \item{stklos - version > 2.10} \item{tr7 - version > 2.0.12} \item{ypsilon - version > 2.0.8} diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index cdb447f1..1cd94960 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -1606,6 +1606,14 @@ (list (make-path (process->string '(sagittarius -I "(sagittarius)" -e "(display (car (load-path))) (exit)"))))) + ((skint) + (list + (string-trim + (string-trim + (process->string + '(skint -qe "(begin (import (only (skint hidden) base-library-directory)) (base-library-directory))")) + #\newline) + #\"))) ((stklos) (list (make-path (process->string @@ -1748,6 +1756,10 @@ (if lib-path `(racket -I r7rs -S ,install-dir -S ,lib-path --script ,file) `(racket -I r7rs -S ,install-dir --script ,file))) + ((skint) + (if lib-path + `(skint -A ,install-dir -A ,lib-path ,file) + `(skint -A ,install-dir ,file))) ((stklos) (if lib-path `(stklos -A ,install-dir -A ,lib-path ,file) @@ -2013,6 +2025,7 @@ ((eq? impl 'mosh) (get-install-library-dir impl cfg)) ((eq? impl 'racket) (get-install-library-dir impl cfg)) ((eq? impl 'sagittarius) (get-install-library-dir impl cfg)) + ((eq? impl 'skint) (get-install-library-dir impl cfg)) ((eq? impl 'stklos) (get-install-library-dir impl cfg)) ((eq? impl 'tr7) (get-install-library-dir impl cfg)) ((eq? impl 'ypsilon) (get-install-library-dir impl cfg)) @@ -2036,6 +2049,7 @@ ((eq? impl 'mosh) (get-install-library-dir impl cfg)) ((eq? impl 'racket) (get-install-library-dir impl cfg)) ((eq? impl 'sagittarius) (get-install-library-dir impl cfg)) + ((eq? impl 'skint) (get-install-library-dir impl cfg)) ((eq? impl 'stklos) (get-install-library-dir impl cfg)) ((eq? impl 'tr7) (get-install-library-dir impl cfg)) ((eq? impl 'ypsilon) (get-install-library-dir impl cfg)) @@ -2078,6 +2092,8 @@ (car (get-install-dirs impl cfg))) ((eq? impl 'sagittarius) (car (get-install-dirs impl cfg))) + ((eq? impl 'skint) + (car (get-install-dirs impl cfg))) ((eq? impl 'stklos) (car (get-install-dirs impl cfg))) ((eq? impl 'tr7) diff --git a/lib/chibi/snow/utils.scm b/lib/chibi/snow/utils.scm index a9bf8eee..45b88075 100644 --- a/lib/chibi/snow/utils.scm +++ b/lib/chibi/snow/utils.scm @@ -83,6 +83,10 @@ ,(delay (process->sexp '(sagittarius -I "(scheme base)" -e "(write (features)) (exit)")))) + (skint "skint" (skint --version) #f + ,(delay + (process->sexp + '(skint -qe "(features)")))) (stklos "stklos" (stklos --version) #f ,(delay (process->sexp @@ -129,6 +133,7 @@ ((mit) (cond-expand (mit #t) (else #f))) ((racket) (cond-expand (racket #t) (else #f))) ((sagittarius) (cond-expand (sagittarius #t) (else #f))) + ((skint) (cond-expand (skint #t) (else #f))) ((stklos) (cond-expand (stklos #t) (else #f))) ((tr7) (cond-expand (tr7 #t) (else #f))) (else #f)))