skip-return ( -- ch )

Vocabulary

binhex.private

Inputs

None

Outputs

ch

an object

Definition

USING: io kernel sequences ;

IN: binhex.private

: skip-return ( -- ch )
    read1 [ dup "\r\n\t " member? ] [ drop read1 ] while ;