copy-after-gap ( array gb -- )

Vocabulary

gap-buffer

Inputs

array	an object
gb	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: gap-buffer

: copy-after-gap ( array gb -- )
    dup after-gap [ 2dup set-new-gap-end gap-end>> swap ] dip
    -rot copy ;