From 1769a63ca32d7941bdc5903bf1c51edaca2fd52e Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 12 Oct 2011 20:14:21 -0700 Subject: [PATCH] http.client: too aggressive with ?CRLF. --- basis/http/client/client.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor index 86972626b7..7f99c62984 100644 --- a/basis/http/client/client.factor +++ b/basis/http/client/client.factor @@ -98,14 +98,14 @@ SYMBOL: redirects ] [ too-many-redirects ] if ; inline recursive : read-chunk-size ( -- n ) - read-?crlf ";" split1 drop [ blank? ] trim-tail + read-crlf ";" split1 drop [ blank? ] trim-tail hex> [ "Bad chunk size" throw ] unless* ; : read-chunked ( quot: ( chunk -- ) -- ) read-chunk-size dup zero? [ 2drop ] [ read [ swap call ] [ drop ] 2bi - read-?crlf B{ } assert= read-chunked + read-crlf B{ } assert= read-chunked ] if ; inline recursive : read-response-body ( quot response -- )