serve-directory ( server -- )

Vocabulary

ftp.server

Inputs

server

an object

Outputs

None

Definition

USING: accessors io.directories ;

IN: ftp.server

: serve-directory ( server -- )
    serving-directory>>
    [ send-banner handle-client-loop ] with-directory ;