move-gap-back-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-back-inside? ( i gb -- i gb ? )
    2dup [ gap-start>> swap 2 * - ] keep [ buffer-length ] keep
    gap-end>> - <= ;