read1-ignoring ( ignoring stream -- ch )

Vocabulary

base64.private

Inputs

ignoring	an object
stream	an object

Outputs

ch

an object

Definition

USING: io kernel sequences ;

IN: base64.private

: read1-ignoring ( ignoring stream -- ch )
    dup stream-read1 pick dupd member-eq?
    [ drop read1-ignoring ] [ 2nip ] if ; inline recursive