resize-buffer ( gb new-size -- )

Vocabulary

gap-buffer

Inputs

gb	an object
new-size	an object

Outputs

None

Definition

USING: accessors arrays circular kernel ;

IN: gap-buffer

: resize-buffer ( gb new-size -- )
    f <array> swap 2dup copy-before-gap 2dup copy-after-gap
    [ <circular> ] dip seq<< ;