move-gap-forward-inside? ( i gb -- i gb ? )

Vocabulary

gap-buffer

Inputs

i	an object
gb	an object

Outputs

i	an object
gb	an object
?	an object

Definition

USING: accessors kernel math ;

IN: gap-buffer

: move-gap-forward-inside? ( i gb -- i gb ? )
    2dup [ gap-end>> [ 2 * ] dip - ] keep [ gap-start>> ] keep
    buffer-length + <= ;