walker-loop ( -- )

Vocabulary

tools.walker

Inputs

None

Outputs

None

Definition

USING: combinators concurrency.messaging kernel ;

IN: tools.walker

: walker-loop ( -- )
    +running+ set-status
    [ status +stopped+ eq? ] [
        [
            {
                { step [ f ] }
                { step-out [ f ] }
                { step-into [ f ] }
                { step-all [ f ] }
                { step-into-all [ step-into-all-loop f ] }
                { step-back [ f ] }
                { abandon [ f ] }
                { f [ walker-stopped f ] }
                [ walker-suspended ]
            } case
        ] handle-synchronous
    ] until ;