http: Use Uppercase For Header Names

[factor.git] / basis / http / http.factor

diff --git a/basis/http/http.factor b/basis/http/http.factor
index e0f8528f8dbbd7fd561932ed909848be358c8ddf..43420af92e2113fb05f4b9feb5e8027d464d7f6a 100644 (file)
--- a/basis/http/http.factor
+++ b/basis/http/http.factor
@@ -160,8 +160,8 @@ TUPLE: request
         <url> >>proxy-url
         H{ } clone >>header
         V{ } clone >>cookies
-        "close" "connection" set-header
-        "Factor http.client" "user-agent" set-header
+        "close" "Connection" set-header
+        "Factor http.client" "User-Agent" set-header
         max-redirects >>redirects ;
 
 : header ( request/response key -- value )
@@ -183,9 +183,9 @@ TUPLE: response
     response new
         "1.1" >>version
         H{ } clone >>header
-        "close" "connection" set-header
-        now timestamp>http-string "date" set-header
-        "Factor http.server" "server" set-header
+        "close" "Connection" set-header
+        now timestamp>http-string "Date" set-header
+        "Factor http.server" "Server" set-header
         utf8 >>content-encoding
         V{ } clone >>cookies ;