Merge branch 'experimental' into couchdb

[factor.git] / basis / http / client / client.factor

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
old mode 100755 (executable)
new mode 100644 (file)
index 7fdc9bf..ef53e13
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -120,7 +120,7 @@ SYMBOL: redirects
     ] if ; inline recursive
 
 : read-unchunked ( quot: ( chunk -- ) -- )
-    8192 read dup [
+    8192 read-partial dup [
         [ swap call ] [ drop read-unchunked ] 2bi
     ] [ 2drop ] if ; inline recursive