check-magic ( header -- )

Vocabulary

terminfo.private

Inputs

header

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: terminfo.private

: check-magic ( header -- )
    magic>> [ SYSV-MAGIC = ] [ CURSES6-MAGIC = ] bi or
    [ bad-magic ] unless ;