diff --git a/scsh/CSAN/load.scm b/scsh/CSAN/load.scm index badcca2..68aa7f0 100644 --- a/scsh/CSAN/load.scm +++ b/scsh/CSAN/load.scm @@ -35,7 +35,7 @@ ;; Commands: ;; h : display help ;; get : fetch file -(define CSAN-dir (string-append (getenv "HOME") "/.span")) +(define CSAN-dir (string-append (getenv "HOME") "/.csan")) (questionaire CSAN-dir) ;; this changes the CSAN-dir ;; NOTE : after init of questionaire, you can spawn a shell: ;; (CSAN-shell-spawn CSAN-dir (string-append CSAN-dir "/mirror")) diff --git a/scsh/snow/load.scm b/scsh/snow/load.scm index 1689ea0..2297be9 100644 --- a/scsh/snow/load.scm +++ b/scsh/snow/load.scm @@ -27,7 +27,11 @@ ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (load "snow-repository.scm") - +(display "set the CSAN-dir : in bash : export CSAN_DIR=$HOME/.csan") +(newline) +(display "and do : in bash : mkdir $HOME/.csan") +(newline) +(CSAN-dir (getenv "CSAN_DIR")) (let* ((url (snow-repository "./test.scm" '())) (snow-mirror-url (cadr url))) (display (question? 22))