write-frame ( frame -- )

Vocabulary

stomp

Inputs

frame

an object

Outputs

None

Definition

USING: accessors assocs io kernel ;

IN: stomp

: write-frame ( frame -- )
    receipt-id stomp-debug
    [ command>> print ] [
        headers>>
        [ escape-header ":" swap [ write ] tri@ nl ] assoc-each
        nl
    ] [ body>> [ write ] when* 0 write1 ] tri flush ;