mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-10 22:47:33 +02:00
Return the installed files from Kawa installer
This commit is contained in:
parent
c814812879
commit
c3687d22e4
1 changed files with 6 additions and 4 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Reference in a new issue