set-new-gap-end ( array gb -- )

Vocabulary

gap-buffer

Inputs

array	an object
gb	an object

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: gap-buffer

: set-new-gap-end ( array gb -- )
    [ buffer-length swap length swap - ] keep
    [ gap-end>> + ] keep gap-end<< ;