From 66deb6fe3bd9b28efb2630db0fe1bea1cd76bd44 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 3 Aug 2022 22:38:07 +0900 Subject: [PATCH] install-data-file should return the installed path --- lib/chibi/snow/commands.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index 28877ea8..61487730 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -1563,7 +1563,7 @@ (lambda (file acc) (cond ((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))) (and (package? pkg) (every file-exists? (package-installed-files pkg)) @@ -2112,7 +2112,8 @@ (install-dir (get-install-data-dir impl cfg)) (dest (path-resolve dest0 install-dir))) (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) (resource->bytevector cfg url))