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

Better error message if $SCSH_LIB_DIRS contains garbage.

This commit is contained in:
mainzelm 2004-03-03 10:33:35 +00:00
parent 84f85be750
commit 69248ecad2
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scsh/lib-dirs.scm
View File

@ -76,8 +76,14 @@
(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
s val))))))))) (error
(format #f
(string-append
"Illegal path element in $SCSH_LIB_DIRS\n"
"$SCSH_LIB_DIRS: ~a\n"
"The following element is not a string or #f: ~a")
s val))))))))))
;; We don't want to try to parse $SCSH_LIB_DIRS until we actually ;; We don't want to try to parse $SCSH_LIB_DIRS until we actually
;; need the value -- if the user is using the -lp-default switch, ;; need the value -- if the user is using the -lp-default switch,