delete* ( pos gb -- )

Vocabulary

gap-buffer

Inputs

pos	an object
gb	an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: gap-buffer

: delete* ( pos gb -- )
    tuck move-gap dup gap-end>> 1 + over gap-end<< ?decrease ;