eq-wrapper

Vocabulary

bootstrap.image.private

Definition

IN: bootstrap.image.private

TUPLE: eq-wrapper { obj read-only } ;

Methods

USING: accessors bootstrap.image.private kernel ;

M: eq-wrapper equal?
    over eq-wrapper? [ [ obj>> ] bi@ eq? ] [ 2drop f ] if ;


USING: accessors bootstrap.image.private kernel ;

M: eq-wrapper hashcode* nip obj>> identity-hashcode ;