with-code-blocks ( quot -- )

Vocabulary

tools.memory

Inputs

quot

an object

Outputs

None

Definition

USING: accessors kernel math namespaces sequences
tools.memory.private ;

IN: tools.memory

: with-code-blocks ( quot -- )
    [
        get-code-blocks
        [ \ code-blocks set ]
        [ first entry-point>> code-heap-start set ] [
            last [ entry-point>> ] [ size>> ] bi +
            code-heap-end set
        ] tri call
    ] with-scope ; inline