From 91b2f35f0d8c45f920968201911a7433d54d9023 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Sun, 22 Sep 2002 15:43:29 +0000
Subject: [PATCH] Don't print a space after ":" in RFC 822 headers.

---
 scheme/httpd/core.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm
index 3862616..f64178b 100644
--- a/scheme/httpd/core.scm
+++ b/scheme/httpd/core.scm
@@ -350,7 +350,7 @@
 (define (send-http-header-fields headers port)
   (for-each (lambda (pair)
 	      (display (car pair) port)
-	      (display ": " port)
+	      (write-char #\: port)
 	      (display (cdr pair) port)
 	      (write-crlf port))
 	    headers))