read-chunked ( quot: ( chunk -- ) -- )

Vocabulary

http.client.private

Inputs

quot	a quotation with stack effect ( chunk -- )

Outputs

None

Definition

USING: io io.crlf kernel math ;

IN: http.client.private

: read-chunked ( quot: ( chunk -- ) -- )
    read-chunk-size
    [ drop ] [
        read [ swap call ] [ drop ] 2bi read-crlf B{ } assert=
        read-chunked
    ] if-zero ; inline recursive