send-response ( ftp-response -- )

Vocabulary

ftp.server

Inputs

ftp-response

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: ftp.server

: send-response ( ftp-response -- )
    [ n>> ] [ strings>> ] bi
    [ but-last-slice [ "-" (send-response) ] with each ]
    [ first " " (send-response) ] 2bi ;