SPAN - refactor

2012-01-18 23:05:50 +09:00 · 2012-01-18 23:05:50 +09:00 · 63145231c8
parent a05da99853
commit 63145231c8
1 changed files with 4 additions and 1 deletions
--- a/scsh/SPAN/SPAN.scm
+++ b/scsh/SPAN/SPAN.scm
@ -241,7 +241,10 @@ Enter 'h' for help.")
    (define answer "")
    (define SPAN-build-and-cache-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
    ;;((lambda ()
       (cond