ensure-login ( url -- url )

Vocabulary
ftp.client

Inputs
urlan object
Outputs
urlan object
Definition
USING: accessors kernel ;
IN: ftp.client
: ensure-login ( url -- url )
dup username>> [
"anonymous" >>username
"ftp-client@factorcode.org" >>password
] unless ;