         { "Mark stack:" [ mark-stack>> kilobytes ] }
     } object-table. ;
 
+PRIVATE>
+
 : data-room. ( -- )
     "== Data heap ==" print nl
     data-room data-heap-room memory>struct {

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

        [ tenured-room. nl ]
        [ misc-room. ]
    } cleave ;

<PRIVATE

