Un-privatising a word in http.client

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index 6d8d97e0402537f923fdbe5e9a8d5baf28c539dd..e6435ee12b48a9427d1f3671c862c01be1a4ef04 100644 (file)
--- a/basis/http/client/client.factor
+++ b/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 ;