server-response ( string n -- )

Vocabulary

ftp.server

Inputs

string	an object
n	an object

Outputs

None

Definition

USING: accessors ftp kernel logging math.parser sequences ;

IN: ftp.server

: server-response ( string n -- )
    2dup number>string swap ":" glue
    \ server-response DEBUG log-message <ftp-response> swap >>n
    swap add-response-line send-response ;