From a0e14c95cc50c41f7faa4039b58fb6c75bd97a1d Mon Sep 17 00:00:00 2001 From: erana Date: Thu, 19 Jan 2012 00:44:07 +0900 Subject: [PATCH] SPAN - refactor mirror dir --- scsh/SPAN/SPAN.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/SPAN/SPAN.scm b/scsh/SPAN/SPAN.scm index be9c712..c3486c3 100644 --- a/scsh/SPAN/SPAN.scm +++ b/scsh/SPAN/SPAN.scm @@ -361,7 +361,7 @@ Enter 'h' for help.") (lambda (answer) (set! SPAN-mirror-url answer) (run (touch (string-append SPAN-dir "/mirror"))) - (let ((out (open-output-file (string-append SPAN-build-and-cache-dir "/mirror")))) + (let ((out (open-output-file (string-append SPAN-dir "/mirror")))) (write answer out)) #f)) answer)