write-header ( assoc -- )

Vocabulary

http

Inputs

assoc

an object

Outputs

None

Definition

USING: assocs io io.crlf kernel sorting ;

IN: http

: write-header ( assoc -- )
    sort-keys [
        [ check-header-string write ": " write ]
        [ header-value>string check-header-string write crlf ]
        bi*
    ] assoc-each crlf ;