with-ftp-client ( url quot -- )

Vocabulary

ftp.client

Inputs

url	an object
quot	an 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