trace-step ( continuation -- continuation' )

Vocabulary

tools.trace.private

Inputs

continuation

an object

Outputs

continuation'

an object

Definition

USING: accessors kernel kernel.private quotations
tools.continuations ;

IN: tools.trace.private

: trace-step ( continuation -- continuation' )
    dup call>> innermost-frame-executing quotation? [
        dup continuation-current end eq? [
            [ print-depth ] [ print-step ] [
                dup trace-into?
                [ continuation-step-into ] [ continuation-step ]
                if
            ] tri
        ] unless
    ] when ;