read-headers ( -- headers )

Vocabulary

stomp

Inputs

None

Outputs

headers

an object

Definition

USING: arrays io kernel sequences splitting ;

IN: stomp

: read-headers ( -- headers )
    [ readln dup empty? not ]
    [ ":" split1 unescape-header 2array ] produce nip ;