do-insert ( state -- state )

Vocabulary

lcs.private

Inputs

state

an object

Outputs

state

an object

Definition

USING: accessors kernel lcs make math ;

IN: lcs.private

: do-insert ( state -- state )
    dup new-nth insert boa , [ 1 - ] change-j ;