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

Vocabulary

gap-buffer

Inputs

i	an object
gb	an object

Outputs

None

Definition

USING: accessors circular kernel math ;

IN: gap-buffer

: move-gap-forward-around ( i gb -- )
    0 over move-gap-back-inside
    [ dup buffer-length [ swap gap-length - neg swap ] keep ]
    keep [ seq>> copy-elements ] keep
    dup gap-length swap seq>> change-circular-start ;