diff options
| author | Peter Bex <peter@more-magic.net> | 2011-09-14 21:39:18 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2011-09-14 21:39:18 +0200 |
| commit | 087dc770145e517be9822103fa6691bc92c3e93f (patch) | |
| tree | 4e2bf6a263844c7fd68161b4deb2e95376cf3986 | |
| parent | 5b8cbff7e9423ac75465d83a1625c6a03bf26a0b (diff) | |
| download | henrietta-cache-087dc770145e517be9822103fa6691bc92c3e93f.tar.gz | |
Use move-file from setup-api instead of rename-file, since the latter just relinks the file which doesn't work across filesystems
| -rw-r--r-- | henrietta-cache.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/henrietta-cache.scm b/henrietta-cache.scm index d38021c..924b65a 100644 --- a/henrietta-cache.scm +++ b/henrietta-cache.scm @@ -1,4 +1,4 @@ -(use utils posix http-client matchable uri-common srfi-1) +(use utils posix setup-api http-client matchable uri-common srfi-1) (define (usage code) (print #<#EOF @@ -111,7 +111,7 @@ EOF (contents-dir (if (= 1 (length contents)) (make-pathname tmpdir (car contents)) tmpdir))) - (rename-file contents-dir cache-dir) + (move-file contents-dir cache-dir) (system (sprintf "rm -rf ~A" (qs tmpdir)))))) ((meta-file) (condition-case |