align-even-bytes ( header -- )

Vocabulary

terminfo.private

Inputs

header

an object

Outputs

None

Definition

USING: accessors io kernel math ;

IN: terminfo.private

: align-even-bytes ( header -- )
    [ names-bytes>> ] [ boolean-bytes>> ] bi + odd?
    [ read1 drop ] when ;