get-walker-thread ( -- status continuation thread )

Vocabulary

tools.walker

Inputs

None

Outputs

status	an object
continuation	an object
thread	an object

Definition

USING: accessors assocs kernel models threads ;

IN: tools.walker

: get-walker-thread ( -- status continuation thread )
    walker-thread tget [
        [ variables>> walker-status of ]
        [ variables>> walker-continuation of ] [ ] tri
    ] [ f <model> f <model> 2dup start-walker-thread ] if* ;