check-magic ( got expected -- )

Vocabulary

ldcache.private

Inputs

got	an object
expected	an object

Outputs

None

Definition

USING: kernel ;

IN: ldcache.private

: check-magic ( got expected -- )
    2dup = [ 2drop ] [ bad-magic ] if ;