start-walker-thread ( status continuation -- thread' )

Vocabulary

tools.walker

Inputs

status	an object
continuation	an object

Outputs

thread'

an object

Definition

USING: accessors kernel sequences threads ;

IN: tools.walker

: start-walker-thread ( status continuation -- thread' )
    self [
        walking-thread tset walker-continuation tset
        walker-status tset V{ } clone walker-history tset
        walker-loop
    ] 3curry "Walker on " self name>> append spawn
    [ associate-thread ] keep ;