response-body? ( request response -- ? )

Vocabulary

http.server

Inputs

request	an object
response	an object

Outputs

?

an object

Definition

USING: accessors kernel present sequences ;

IN: http.server

: response-body? ( request response -- ? )
    [ method>> "HEAD" = ] [
        code>> present dup "1" head? swap
        { "204" "205" "304" } member? or
    ] bi* or not ;