From 087dc770145e517be9822103fa6691bc92c3e93f Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Wed, 14 Sep 2011 21:39:18 +0200 Subject: Use move-file from setup-api instead of rename-file, since the latter just relinks the file which doesn't work across filesystems --- henrietta-cache.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'henrietta-cache.scm') 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 -- cgit v1.2.3