<gb> ( seq -- gb )

Vocabulary

gap-buffer

Inputs

seq

an object

Outputs

gb

an object

Definition

USING: accessors arrays circular kernel sequences ;

IN: gap-buffer

:: <gb> ( seq -- gb )
    gb new 5 >>min-size 1.5 >>expand-factor
    seq length >>gap-start seq length over required-space
    >>gap-end dup gap-end>> seq { } like resize-array
    <circular> >>seq ;