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

Removed accidentally committed expansion of paths in SCSH_LIB_DIR.

This commit is contained in:
mainzelm 2004-01-13 11:56:00 +00:00
parent da53963d82
commit af976ddde2
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/top.scm
View File

@ -490,10 +490,9 @@
;;; Parse up the $SCSH_LIB_DIRS path list. ;;; Parse up the $SCSH_LIB_DIRS path list.
(define (parse-lib-dirs-env-var) (define (parse-lib-dirs-env-var)
(map resolve-file-name
(let ((s (getenv "SCSH_LIB_DIRS"))) (let ((s (getenv "SCSH_LIB_DIRS")))
(if (not s) default-lib-dirs (if (not s)
default-lib-dirs
(with-current-input-port (make-string-input-port s) (with-current-input-port (make-string-input-port s)
(let recur () (let recur ()
(let ((val (read))) (let ((val (read)))