read-body ( content-length/f -- body )

Vocabulary

stomp

Inputs

content-length/f

an object

Outputs

body

an object

Definition

USING: io kernel ;

IN: stomp

: read-body ( content-length/f -- body )
    [ read read1 ] [ B{ 0 } read-until ] if* 0 assert= ;