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

Return the installed files from Kawa installer

Browse source
This commit is contained in:
retropikzel 2025-06-27 19:08:33 +03:00
parent c814812879
commit c3687d22e4
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1954,10 +1954,12 @@
(source-class-file (make-path dir class-file)) (source-class-file (make-path dir class-file))
(install-dir (get-install-source-dir impl cfg)) (install-dir (get-install-source-dir impl cfg))
(dest-class-file (make-path install-dir class-file)) (dest-class-file (make-path install-dir class-file))
(path (make-path install-dir dest-class-file))) (path (make-path install-dir dest-class-file))
(default-installer impl cfg library dir) (installed-files (default-installer impl cfg library dir)))
(when (file-exists? source-class-file) (cond ((file-exists? source-class-file)
(install-file cfg source-class-file dest-class-file)))) (install-file cfg source-class-file dest-class-file)
(cons dest-class-file installed-files))
(else installed-files))))
;; installers should return the list of installed files ;; installers should return the list of installed files
(define (lookup-installer installer) (define (lookup-installer installer)