check-magic ( got expected -- )


Vocabulary
ldcache

Inputs
gotan object
expectedan object


Outputs
None

Definition
USING: kernel ;

IN: ldcache

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