steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

http.client: too aggressive with ?CRLF.

db4
John Benediktsson 2011-10-12 20:14:21 -07:00
parent 0075b6bc28
commit 1769a63ca3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/http/client/client.factor
View File

@ -98,14 +98,14 @@ SYMBOL: redirects
] [ too-many-redirects ] if ; inline recursive ] [ too-many-redirects ] if ; inline recursive
: read-chunk-size ( -- n ) : read-chunk-size ( -- n )
read-?crlf ";" split1 drop [ blank? ] trim-tail read-crlf ";" split1 drop [ blank? ] trim-tail
hex> [ "Bad chunk size" throw ] unless* ; hex> [ "Bad chunk size" throw ] unless* ;
: read-chunked ( quot: ( chunk -- ) -- ) : read-chunked ( quot: ( chunk -- ) -- )
read-chunk-size dup zero? read-chunk-size dup zero?
[ 2drop ] [ [ 2drop ] [
read [ swap call ] [ drop ] 2bi read [ swap call ] [ drop ] 2bi
read-?crlf B{ } assert= read-chunked read-crlf B{ } assert= read-chunked
] if ; inline recursive ] if ; inline recursive
: read-response-body ( quot response -- ) : read-response-body ( quot response -- )