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

Vocabulary

tools.memory.private

Inputs

addr	an object
seq	an object

Outputs

code-block

an object

Definition

USING: accessors binary-search kernel math.order ;

IN: tools.memory.private

: (lookup-return-address) ( addr seq -- code-block )
    [ entry-point>> <=> ] with search nip ;