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

23
scsh/top.scm
View File

@ -490,18 +490,17 @@
;;; 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
(with-current-input-port (make-string-input-port s)
(let recur ()
(let ((val (read)))
(cond ((eof-object? val) '())
((string? val) (cons val (recur)))
((not val) (append default-lib-dirs (recur)))
(else (error "Illegal path element in $SCSH_LIB_DIRS"
s val))))))))))
(let ((s (getenv "SCSH_LIB_DIRS")))
(if (not s)
default-lib-dirs
(with-current-input-port (make-string-input-port s)
(let recur ()
(let ((val (read)))
(cond ((eof-object? val) '())
((string? val) (cons val (recur)))
((not val) (append default-lib-dirs (recur)))
(else (error "Illegal path element in $SCSH_LIB_DIRS"
s val))))))))))
(define (bad-arg . msg)
(with-current-output-port (current-error-port)