do-delete ( state -- state )

Vocabulary

lcs.private

Inputs

state

an object

Outputs

state

an object

Definition

USING: accessors kernel lcs make math ;

IN: lcs.private

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