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