 \ (step-into-execute) t "step-into?" set-word-prop
 
 : (step-into-continuation)
-    continuation callstack over set-continuation-call break ;
+    continuation callstack >>call break ;
 
 ! Messages sent to walker thread
 SYMBOL: step

                { step-back [ f ] }
                { f [ +stopped+ set-status f ] }
                [
                    dup walker-continuation tget set-model
                    step-into-msg
                ]
            } case
        ] handle-synchronous
    ] [ ] while ;

: step-back-msg ( continuation -- continuation' )
    walker-history tget dup pop*
    empty? [ drop walker-history tget pop ] unless ;

: walker-suspended ( continuation -- continuation' )
    +suspended+ set-status

USING: threads kernel namespaces continuations combinators
sequences math namespaces.private continuations.private
concurrency.messaging quotations kernel.private words
sequences.private assocs models arrays accessors ;
IN: tools.walker

SYMBOL: show-walker-hook ! ( status continuation thread -- )
