<ftp-command> ( str -- obj )


Vocabulary
ftp.server

Inputs
stran object


Outputs
objan object


Definition
USING: accessors kernel logging simple-tokenizer ;

IN: ftp.server

: <ftp-command> ( str -- obj )
dup \ <ftp-command> DEBUG log-message
ftp-command new over >>raw swap tokenize >>tokenized ;