get-ok ( -- )


Vocabulary
pop3.private

Definition
USING: io io.streams.duplex kernel sequences ;

IN: pop3.private

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