ftp-assert ( ftp-response n -- )

Vocabulary

ftp.client

Inputs

ftp-response	an object
n	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: ftp.client

: ftp-assert ( ftp-response n -- )
    2dup [ n>> ] dip = [ 2drop ] [ ftp-error ] if ;