get-ok ( -- )

Vocabulary

pop3.private

Inputs

None

Outputs

None

Definition

USING: io io.streams.duplex kernel sequences ;

IN: pop3.private

: get-ok ( -- )
    stream
    [ readln dup "+OK" head? [ drop ] [ throw ] if ]
    with-stream* ;