do-retain ( state -- state )

Vocabulary

lcs.private

Inputs

state

an object

Outputs

state

an object

Definition

USING: accessors kernel lcs make math ;

IN: lcs.private

: do-retain ( state -- state )
    dup old-nth retain boa , [ 1 - ] change-i [ 1 - ] change-j ;