Rice

2008-10-02 01:17:54 -05:00 · 2008-10-02 01:17:54 -05:00 · 87c71ee376
parent d4134a2ca1
commit 87c71ee376
1 changed files with 1 additions and 1 deletions
--- 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