From 8845a7983fb23d5369460145b5ba75c3a7ce2e0f Mon Sep 17 00:00:00 2001 From: retropikzel Date: Fri, 27 Jun 2025 16:58:57 +0300 Subject: [PATCH] Clean up the Kawa installer some more --- lib/chibi/snow/commands.scm | 19 +++++-------------- 1 file changed, 5 insertions(+), 14 deletions(-) diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index e4685924..1ea68bad 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -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)))