with-ftp-client ( url quot -- )


Vocabulary
ftp.client

Inputs
urlan object
quotan object


Outputs
None

Definition
USING: io.streams.duplex kernel ;

IN: ftp.client

: with-ftp-client ( url quot -- )
[ [ ftp-connect ] keep ] dip [ [ [ ftp-login ] ] curry ] dip
[ bi ftp-quit drop ] curry compose with-stream ; inline