get-ok-and-total ( -- total )

Vocabulary
pop3.private

Definition

USING: accessors io io.streams.duplex kernel math.parser pop3
sequences splitting ;

IN: pop3.private

: get-ok-and-total ( -- total )
    stream [
        readln dup "+OK" head?
        [ " " split second string>number dup account count<< ]
        [ throw ] if
    ] with-stream* ;