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

Clean up the kawa-builder code

Browse source
This commit is contained in:
retropikzel 2025-06-27 19:21:05 +03:00
parent c3687d22e4
commit f57c1d64a4
1 changed files with 9 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2157,24 +2157,15 @@
library))))) library)))))
(define (kawa-builder impl cfg library dir) (define (kawa-builder impl cfg library dir)
(let* ((library-file (get-library-file cfg library)) (let* ((src-library-file (make-path dir (get-library-file cfg library)))
(src-library-file (make-path dir library-file)) (res (system 'kawa
(library-dir (path-directory src-library-file)) '-d dir
(dest-library-file '-C src-library-file)))
(string-append (library->path cfg library) ".class")) (and (or (and (pair? res) (zero? (cadr res)))
(dest-dir (yes-or-no? cfg ".class file failed to build: "
(path-directory (make-path dir dest-library-file)))) (library-name library)
;; ensure the build directory exists " - install anyway?"))
(create-directory* dest-dir) library)))
(with-directory
dir
(lambda ()
(let ((res (system 'kawa '-d dir '-C src-library-file)))
(and (or (and (pair? res) (zero? (cadr res)))
(yes-or-no? cfg ".class file failed to build: "
(library-name library)
" - install anyway?"))
library))))))
(define (lookup-builder builder) (define (lookup-builder builder)
(case builder (case builder