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

View File

@ -490,10 +490,9 @@
;;; Parse up the $SCSH_LIB_DIRS path list.
(define (parse-lib-dirs-env-var)
(map resolve-file-name
(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)
(let recur ()
(let ((val (read)))