http.client: add quot stack effect.
parent
a5339d48c8
commit
9eb365abe0
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue