diff options
| -rw-r--r-- | henrietta-cache.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/henrietta-cache.scm b/henrietta-cache.scm index 9daa883..15921af 100644 --- a/henrietta-cache.scm +++ b/henrietta-cache.scm @@ -169,7 +169,8 @@ EOF (make-pathname tmp-dir dir)) (else tmp-dir)))) (move-to-cache contents-dir cache-dir) - (delete-directory tmp-dir #t) ; sloppy; don't know which dir selected + (unless (eq? contents-dir tmp-dir) + (delete-directory tmp-dir #t)) ; remove parent if needed (delete-file tmp-file) )))) (define (download-release distribution-file-type uri cache-dir) |