(trace-diff) ( state -- )

Vocabulary

lcs.private

Inputs

state

an object

Outputs

None

Definition

USING: combinators kernel ;

IN: lcs.private

: (trace-diff) ( state -- )
    {
        { [ dup retained? ] [ do-retain (trace-diff) ] }
        { [ dup inserted? ] [ do-insert (trace-diff) ] }
        { [ dup deleted? ] [ do-delete (trace-diff) ] }
        [ drop ]
    } cond ;