(read-sub-blocks) ( -- )

Vocabulary

images.gif

Inputs

None

Outputs

None

Definition

USING: io make math ;

IN: images.gif

: (read-sub-blocks) ( -- )
    read1 [ read , (read-sub-blocks) ] unless-zero ;