cache-eq-object ( obj quot -- value )

Vocabulary

bootstrap.image.private

Inputs

obj	an object
quot	an object

Outputs

value

an object

Definition

USING: accessors assocs kernel namespaces ;

IN: bootstrap.image.private

: cache-eq-object ( obj quot -- value )
    [ <eq-wrapper> objects get ] dip [ [ obj>> ] ] dip compose
    cache ; inline