From 17abc90d48ea58dc8093b9ff66cd0a2e46f25f71 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 7 Mar 2008 15:52:41 -0600 Subject: [PATCH] Updated http client --- extra/http/client/client.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 ;