steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove dead code

db4
Doug Coleman 2009-02-18 15:51:03 -06:00
parent 1ed6c013a2
commit b8445b3432
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ftp/server/server.factor
View File

@ -70,14 +70,8 @@ C: <ftp-disconnect> ftp-disconnect
[ serving? ]
} 1&& ;
: can-serve? ( path -- ? )
[ can-serve-file? ] [ can-serve-directory? ] bi or ;
: ftp-error ( string -- ) 500 server-response ;
: ftp-syntax-error ( string -- ) 501 server-response ;
: ftp-unimplemented ( string -- ) 502 server-response ;
: ftp-file-not-available ( string -- ) 550 server-response ;
: ftp-illegal-file-name ( string -- ) 553 server-response ;
: send-banner ( -- )
"Welcome to " host-name append 220 server-response ;