check-struct-array-length ( value expected -- value )

Vocabulary

classes.struct.private

Inputs

value	an object
expected	an object

Outputs

value

an object

Definition

USING: alien classes.struct kernel ;

IN: classes.struct.private

: check-struct-array-length ( value expected -- value )
    over alien?
    [ drop ] [
        2dup swap byte-length =
        [ drop ] [ bad-struct-array-length ] if
    ] if ; inline