find-heap-node* ( heap untagged-ptr -- node )


Vocabulary
tools.image.analyzer.references

Inputs
heapan object
untagged-ptran object


Outputs
nodean object


Definition
USING: accessors kernel sequences ;

IN: tools.image.analyzer.references

: find-heap-node* ( heap untagged-ptr -- node )
[ [ address>> ] ] dip [ = ] curry compose find nip ;