Un-privatising a word in http.client

basis/http/client/client.factor

@@ -89,10 +89,10 @@ M: too-many-redirects summary
     drop
     [ "Redirection limit of " % max-redirects # " exceeded" % ] "" make ;
 
-<PRIVATE
-
 DEFER: with-http-request
 
+<PRIVATE
+
 SYMBOL: redirects
 
 : redirect-url ( request url -- request )
@@ -134,6 +134,8 @@ SYMBOL: redirects
     request get url>> url-addr ascii <client> drop
     1 minutes over set-timeout ;
 
+PRIVATE>
+
 : with-http-request ( request quot: ( chunk -- ) -- response )
     swap
     request [
@@ -156,8 +158,6 @@ SYMBOL: redirects
         [ do-redirect ] [ nip ] if
     ] with-variable ; inline recursive
 
-PRIVATE>
-
 : success? ( code -- ? ) 200 299 between? ;
 
 ERROR: download-failed response data ;