diff --git a/extra/http/client/client.factor b/extra/http/client/client.factor index f7a160017a..b00032e259 100755 --- a/extra/http/client/client.factor +++ b/extra/http/client/client.factor @@ -2,7 +2,8 @@ ! See http://factorcode.org/license.txt for BSD license. USING: assocs http kernel math math.parser namespaces sequences io io.sockets io.streams.string io.files io.timeouts strings -splitting calendar continuations accessors vectors io.encodings.binary ; +splitting calendar continuations accessors vectors io.encodings.latin1 +io.encodings.binary ; IN: http.client : parse-url ( url -- resource host port ) @@ -42,7 +43,7 @@ DEFER: (http-request) ] if ; : (http-request) ( request -- response stream ) - dup host>> over port>> stdio set + dup host>> over port>> latin1 stdio set dup "r" set-global write-request flush read-response do-redirect ;