move-gap-forward-inside ( i gb -- )

Vocabulary

gap-buffer

Inputs

i	an object
gb	an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: gap-buffer

: move-gap-forward-inside ( i gb -- )
    [ dup gap-length neg swap gap-end>> rot ] keep
    seq>> copy-elements ;