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

SPAN - refactor

This commit is contained in:
erana 2012-01-18 23:05:50 +09:00
parent a05da99853
commit 63145231c8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/SPAN/SPAN.scm
View File

@ -241,7 +241,10 @@ Enter 'h' for help.")
(define answer "") (define answer "")
(define SPAN-build-and-cache-dir SPAN-dir) (define SPAN-build-and-cache-dir SPAN-dir)
(define SPAN-download-target-dir SPAN-dir) (define SPAN-download-target-dir SPAN-dir)
(define SPAN-mirror-url "localhost") (define SPAN-mirror-url (if (file-exists? (string-append SPAN-dir "/mirror"))
(read (string-append SPAN-dir "/mirror"))
"localhost"))
;; question 1 ;; question 1
;;((lambda () ;;((lambda ()
(cond (cond