1 USING: accessors classes.struct kernel kernel.private math math.order
7 context vm:context memory>struct ;
10 get-ctx [ callstack-bottom>> ] [ callstack-top>> ] bi - 0 >
14 ! Callstack is in the callstack segment
15 get-ctx [ callstack-top>> ] [
16 callstack-seg>> [ start>> ] [ end>> ] bi