Omit warning message if INFOPATH is not set.

This commit is contained in:
interp 2004-05-12 19:28:17 +00:00
parent e13ad264bc
commit 7a04cf81d5
1 changed files with 7 additions and 1 deletions

View File

@ -119,7 +119,13 @@
(values parse-info (values parse-info
(unescape-uri (http-url-search url))))) (unescape-uri (http-url-search url)))))
(else (else
(let ((info-path ((infix-splitter ":") (getenv "INFOPATH")))) (let ((info-path
((infix-splitter ":")
(or (getenv "INFOPATH")
(begin
(format (current-error-port)
"~%Warning: environment variable INFOPATH is unset.~%")
"")))))
(lambda (url) (lambda (url)
(values info-path (values info-path
(unescape-uri (http-url-search url)))))))) (unescape-uri (http-url-search url))))))))