http: remove some dead code but i wanted to keep it in git history

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index d6ed9c684c6902c242c4c2b438896f87a138322d..af57ad4ba1ae352735f92649a845a21a9bacb2db 100644 (file)
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -263,7 +263,6 @@ SYMBOL: request-socket
 
 : add-default-headers ( request -- request )
     dup url>> protocol>> {
-        ! { [ dup { "http" "https" } member? ] [ drop add-connection-close-header ] }
         { [ dup { "ws" "wss" } member? ] [ drop add-websocket-upgrade-headers ] }
         [ drop ]
     } cond ;

diff --git a/basis/http/http.factor b/basis/http/http.factor
index 6c05a2709768ff5d0131d15c48ac49d63d67b1e5..a2b7afffc903ec799a91782b961484a62c95c91b 100644 (file)
--- a/basis/http/http.factor
+++ b/basis/http/http.factor
@@ -170,9 +170,6 @@ TUPLE: request
         "Factor http.client" "User-Agent" set-header
         max-redirects >>redirects ;
 
-: add-connection-close-header ( request -- request )
-    "close" "Connection" set-header ;
-
 : header ( request/response key -- value )
     swap header>> at ;