http.client: add quot stack effect.

db4
John Benediktsson 2015-04-17 17:54:29 -07:00
parent a5339d48c8
commit 9eb365abe0
1 changed files with 1 additions and 1 deletions

View File

@ -106,7 +106,7 @@ SYMBOL: redirects
read-crlf B{ } assert= read-chunked
] if ; inline recursive
: read-response-body ( quot response -- )
: read-response-body ( quot: ( chunk -- ) response -- )
binary decode-input
"transfer-encoding" header "chunked" =
[ read-chunked ] [ each-block ] if ; inline