From 7a04cf81d579722b36a4312bcbab6b6f5101e748 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Wed, 12 May 2004 19:28:17 +0000
Subject: [PATCH] Omit warning message if INFOPATH is not set.

---
 scheme/httpd/info-gateway.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/scheme/httpd/info-gateway.scm b/scheme/httpd/info-gateway.scm
index 18a49ff..40dc5df 100644
--- 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))))))))