From 27f6bb4dbd15287b61db1dbd7ba44ce217eb9946 Mon Sep 17 00:00:00 2001 From: interp Date: Mon, 2 Sep 2002 14:33:06 +0000 Subject: [PATCH] remove debug output --- scheme/httpd/cgi-server.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm index aef32e7..c8d5107 100644 --- a/scheme/httpd/cgi-server.scm +++ b/scheme/httpd/cgi-server.scm @@ -255,7 +255,7 @@ (http-syslog (syslog-level debug) "[cgi-server] headers: ~s~%" headers) (http-syslog (syslog-level debug) "[cgi-server] request:method=~a~%" (request:method req)) - (write (list 'status-code stat)) + (if loc (if (uri-like? (string-trim loc)) (make-http-error-response http-status/moved-perm req