print-step ( continuation -- )

Vocabulary

tools.trace.private

Inputs

continuation

an object

Outputs

None

Definition

USING: accessors io io.styles kernel prettyprint
tools.continuations words ;

IN: tools.trace.private

: print-step ( continuation -- )
    dup continuation-current dup word?
    [ [ nip name>> ] [ <trace-step> ] 2bi write-object nl ]
    [ nip short. ] if ;