ignore snow package meta files whose installed files have been removed

This commit is contained in:
Alex Shinn 2020-09-04 14:04:53 +09:00
parent 64ff69e99b
commit c82baa3aa9

View file

@ -1559,7 +1559,9 @@
((and (equal? "meta" (path-extension file))
(guard (exn (else #f))
(let ((pkg (call-with-input-file file read)))
(and (package? pkg) pkg))))
(and (package? pkg)
(every file-exists? (package-installed-files pkg))
pkg))))
=> (lambda (pkg)
(append
(map