diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor index b1a9dae..7282295 100644 --- a/basis/http/client/client.factor +++ b/basis/http/client/client.factor @@ -16,7 +16,7 @@ ERROR: too-many-redirects ; : write-request-line ( request -- request ) dup [ method>> write bl ] - [ url>> relative-url present write bl ] + [ [ url>> ] [ proxy>> ] bi [ relative-url ] unless present write bl ] [ "HTTP/" write version>> write crlf ] tri ; @@ -112,7 +112,7 @@ SYMBOL: redirects [ read-chunked ] [ each-block ] if ; inline : ( -- stream ) - request get url>> url-addr ascii drop + request get [ proxy>> ] [ url>> ] bi or url-addr ascii drop 1 minutes over set-timeout ; : (with-http-request) ( request quot: ( chunk -- ) -- response )