Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

install-data-file should return the installed path

Browse source
This commit is contained in:
Alex Shinn 2022-08-03 22:38:07 +09:00
parent dea22a424b
commit 66deb6fe3b
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1563,7 +1563,7 @@
(lambda (file acc) (lambda (file acc)
(cond (cond
((and (equal? "meta" (path-extension file)) ((and (equal? "meta" (path-extension file))
(guard (exn (else #f)) (guard (exn (else (warn "read meta failed" exn) #f))
(let ((pkg (call-with-input-file file read))) (let ((pkg (call-with-input-file file read)))
(and (package? pkg) (and (package? pkg)
(every file-exists? (package-installed-files pkg)) (every file-exists? (package-installed-files pkg))
@ -2112,7 +2112,8 @@
(install-dir (get-install-data-dir impl cfg)) (install-dir (get-install-data-dir impl cfg))
(dest (path-resolve dest0 install-dir))) (dest (path-resolve dest0 install-dir)))
(create-directory* (path-directory dest)) (create-directory* (path-directory dest))
(install-file cfg (make-path dir src) dest))) (install-file cfg (make-path dir src) dest)
dest))
(define (fetch-package cfg url) (define (fetch-package cfg url)
(resource->bytevector cfg url)) (resource->bytevector cfg url))