From 17abc90d48ea58dc8093b9ff66cd0a2e46f25f71 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@oberon.internal.stack-effects.com>
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>> <inet> <client> stdio set
+ dup host>> over port>> <inet> latin1 <client> stdio set
dup "r" set-global write-request flush read-response
do-redirect ;