(step-into-execute) ( word -- )

Vocabulary

tools.continuations.private

Inputs

word

an object

Outputs

None

Definition

USING: accessors combinators generic generic.single kernel
sequences threads tools.continuations tools.crossref words ;

IN: tools.continuations.private

: (step-into-execute) ( word -- )
    {
        {
            [ dup "step-into" word-prop ]
            [ "step-into" word-prop call ]
        }
        {
            [ dup single-generic? ]
            [ effective-method (step-into-execute) ]
        }
        {
            [ dup uses \ suspend swap member? ]
            [ execute break ]
        }
        { [ dup primitive? ] [ execute break ] }
        [ def>> (step-into-quotation) ]
    } cond ;