Handbook
Glossary
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
;