move-gap-back-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-back-inside ( i gb -- )
    [ dup gap-length swap gap-start>> 1 - rot 1 - ] keep
    seq>> copy-elements ;