Omit warning message if INFOPATH is not set.

2004-05-12 19:28:17 +00:00 · 2004-05-12 19:28:17 +00:00 · 7a04cf81d5
parent e13ad264bc
commit 7a04cf81d5
1 changed files with 7 additions and 1 deletions
--- a/scheme/httpd/info-gateway.scm
+++ b/scheme/httpd/info-gateway.scm
@ -119,7 +119,13 @@
 	     (values parse-info
 		     (unescape-uri (http-url-search url)))))
 	  (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)
 	       (values info-path
 		       (unescape-uri (http-url-search url))))))))