walker-suspended ( continuation -- continuation' )

Vocabulary

tools.walker

Inputs

continuation

an object

Outputs

continuation'

an object

Definition

USING: combinators concurrency.messaging kernel models sequences
threads tools.continuations ;

IN: tools.walker

: walker-suspended ( continuation -- continuation' )
    +suspended+ set-status
    [ status +suspended+ eq? ] [
        dup walker-history tget push
        dup walker-continuation tget set-model [
            {
                { step [ continuation-step keep-running ] }
                {
                    step-out
                    [ continuation-step-out keep-running ]
                }
                {
                    step-into
                    [ continuation-step-into keep-running ]
                }
                { step-all [ keep-running ] }
                { step-into-all [ step-into-all-loop ] }
                { abandon [ drop f keep-running ] }
                { call-in [ keep-running ] }
                { step-back [ continuation-step-back ] }
            } case f
        ] handle-synchronous
    ] while ;