read-ascii-bits ( -- )

Vocabulary

images.pbm.private

Inputs

None

Outputs

None

Definition

USING: combinators io kernel make ;

IN: images.pbm.private

: read-ascii-bits ( -- )
    read1 {
        { 49 [ 0 , read-ascii-bits ] }
        { 48 [ 255 , read-ascii-bits ] }
        { f [ ] }
        [ drop read-ascii-bits ]
    } case ;