From 63145231c8e8c84f305ca3a9a76457330436d03d Mon Sep 17 00:00:00 2001
From: erana <jceuppen@vub.ac.be>
Date: Wed, 18 Jan 2012 23:05:50 +0900
Subject: [PATCH] SPAN - refactor

---
 scsh/SPAN/SPAN.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scsh/SPAN/SPAN.scm b/scsh/SPAN/SPAN.scm
index 83afb98..67b41d6 100644
--- 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