lookup-return-address ( addr -- code-block )

Vocabulary

tools.memory

Inputs

addr

an object

Outputs

code-block

an object

Definition

USING: kernel namespaces tools.memory.private ;

IN: tools.memory

: lookup-return-address ( addr -- code-block )
    dup in-code-heap?
    [ \ code-blocks get (lookup-return-address) ] [ drop f ] if
    ;