check-magic ( -- )

Vocabulary

tzinfo.private

Inputs

None

Outputs

None

Definition

USING: io kernel sequences ;

IN: tzinfo.private

: check-magic ( -- )
    4 read "TZif" sequence= [ bad-magic ] unless ;