box-unsafe> ( box -- value )


Vocabulary
boxes.private

Inputs
boxan object


Outputs
valuean object


Definition
USING: accessors kernel ;

IN: boxes.private

: box-unsafe> ( box -- value )
[ f ] change-value f >>occupied drop ; inline