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

supporting installing srfi's for chicken

Browse source
This commit is contained in:
Alex Shinn 2017-01-31 22:47:01 +09:00
parent 57f1b44d14
commit 1a1dfc64ca
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1727,9 +1727,15 @@
(library-shared-include-files
impl cfg (make-path dir library-file))))))))
(define (chicken-library-base name)
(if (and (= 2 (length name)) (eq? 'srfi (car name)) (integer? (cadr name)))
(string-append "srfi-" (number->string (cadr name)))
(string-join (map x->string name) ".")))
(define (chicken-installer impl cfg library dir)
(let* ((library-file (get-library-file cfg library))
(library-base (string-join (map x->string (library-name library)) "."))
(name (library-name library))
(library-base (chicken-library-base name))
(install-dir (get-install-library-dir impl cfg))
(so-path (string-append library-base ".so"))
(imp-path (string-append library-base ".import.scm"))
@ -1889,8 +1895,7 @@
(define (chicken-builder impl cfg library dir)
(let* ((library-file (make-path dir (get-library-file cfg library)))
(library-base (string-join (map x->string (library-name library)) "."))
(module-name (string-join (map x->string (library-name library)) "."))
(library-base (chicken-library-base (library-name library)))
(so-path (make-path dir (string-append library-base ".so")))
(imp-path (string-append library-base ".import.scm")))
(with-directory