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

SPAN - refactor help

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

4
scsh/SPAN/SPAN.scm
View File

@ -262,6 +262,9 @@ Enter 'h' for help.")
SPAN-build-and-cache-dir SPAN-build-and-cache-dir
(lambda (answer) (lambda (answer)
(let ((dir (create-directory answer))) (let ((dir (create-directory answer)))
(run (touch (string-append dir "/help")))
(let ((out (open-output-file (string-append dir "/help"))))
(write "Commands : 'h' and 'get <filename-on-server>"))
(if (file-directory? dir) (if (file-directory? dir)
(set! SPAN-dir answer) (set! SPAN-dir answer)
(set! SPAN-build-and-cache-dir answer) (set! SPAN-build-and-cache-dir answer)
@ -357,6 +360,7 @@ Enter 'h' for help.")
SPAN-mirror-url SPAN-mirror-url
(lambda (answer) (lambda (answer)
(set! SPAN-mirror-url 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-build-and-cache-dir "/mirror"))))
(write answer out)) (write answer out))
#f)) answer) #f)) answer)