mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-11 23:17:34 +02:00
Clean up the Kawa installer some more
This commit is contained in:
parent
12ec5bf41e
commit
8845a7983f
1 changed files with 5 additions and 14 deletions
|
@ -1949,21 +1949,12 @@
|
|||
impl cfg (make-path dir source-scm-file))))))))
|
||||
|
||||
(define (kawa-installer impl cfg library dir)
|
||||
(let* ((source-class-file
|
||||
(string-append dir
|
||||
"/"
|
||||
(path-strip-extension (get-library-file cfg library))
|
||||
".class"))
|
||||
(let* ((class-file (path-replace-extension
|
||||
(get-library-file cfg library) "class"))
|
||||
(source-class-file (make-path dir class-file))
|
||||
(install-dir (get-install-source-dir impl cfg))
|
||||
(dest-class-file
|
||||
(string-append install-dir
|
||||
"/"
|
||||
(library->path cfg library) ".class"))
|
||||
(path (make-path install-dir dest-class-file))
|
||||
(include-filename (string-append
|
||||
(path-strip-directory
|
||||
(path-strip-extension path))
|
||||
".sld")))
|
||||
(dest-class-file (make-path install-dir class-file))
|
||||
(path (make-path install-dir dest-class-file)))
|
||||
(when (file-exists? source-class-file)
|
||||
(default-installer impl cfg library dir))
|
||||
(install-file cfg source-class-file dest-class-file)))
|
||||
|
|
Loading…
Add table
Reference in a new issue