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

Clean up the Kawa installer some more

Browse source
This commit is contained in:
retropikzel 2025-06-27 16:58:57 +03:00
parent 12ec5bf41e
commit 8845a7983f
1 changed files with 5 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1949,21 +1949,12 @@
impl cfg (make-path dir source-scm-file)))))))) impl cfg (make-path dir source-scm-file))))))))
(define (kawa-installer impl cfg library dir) (define (kawa-installer impl cfg library dir)
(let* ((source-class-file (let* ((class-file (path-replace-extension
(string-append dir (get-library-file cfg library) "class"))
"/" (source-class-file (make-path dir class-file))
(path-strip-extension (get-library-file cfg library))
".class"))
(install-dir (get-install-source-dir impl cfg)) (install-dir (get-install-source-dir impl cfg))
(dest-class-file (dest-class-file (make-path install-dir class-file))
(string-append install-dir (path (make-path install-dir dest-class-file)))
"/"
(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")))
(when (file-exists? source-class-file) (when (file-exists? source-class-file)
(default-installer impl cfg library dir)) (default-installer impl cfg library dir))
(install-file cfg source-class-file dest-class-file))) (install-file cfg source-class-file dest-class-file)))