read-response-loop ( ftp-response -- ftp-response )

Vocabulary

ftp.client

Inputs

ftp-response

an object

Outputs

ftp-response

an object

Definition

USING: accessors ftp io kernel ;

IN: ftp.client

: read-response-loop ( ftp-response -- ftp-response )
    readln [ add-response-line ] [ ftp-response-code ] bi
    over n>> = [ read-response-loop ] unless ;