scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

SPAN - refactor mirror dir

This commit is contained in:
erana 2012-01-19 00:44:07 +09:00
parent 38133a2915
commit a0e14c95cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/SPAN/SPAN.scm
View File

@ -361,7 +361,7 @@ Enter 'h' for help.")
(lambda (answer) (lambda (answer)
(set! SPAN-mirror-url answer) (set! SPAN-mirror-url answer)
(run (touch (string-append SPAN-dir "/mirror"))) (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)) (write answer out))
#f)) answer) #f)) answer)