From af976ddde273669e9f88c60e88f5ec967dca60b8 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Tue, 13 Jan 2004 11:56:00 +0000 Subject: [PATCH] Removed accidentally committed expansion of paths in SCSH_LIB_DIR. --- scsh/top.scm | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/scsh/top.scm b/scsh/top.scm index ffdc942..1e430a1 100644 --- a/scsh/top.scm +++ b/scsh/top.scm @@ -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)