commit 4a2f190
chld
·
2026-09-13 03:16:17 +0000 UTC
parent 67b6aca
delete files before copying
1 files changed,
+1,
-0
M
pkg.scm
M
pkg.scm
+1,
-0
1@@ -101,6 +101,7 @@
2 (let fc ((n 0))
3 (unless (= n (length df))
4 (unless (string-suffix? "/" (list-ref df n))
5+ (delete-file (list-ref df n))
6 (copy-file (string-append dp (list-ref df n)) (list-ref df n))
7 )
8 (fc (+ n 1))))