(move-gap) ( i gb -- )

Vocabulary

gap-buffer

Inputs

i	an object
gb	an object

Outputs

None

Definition

USING: kernel ;

IN: gap-buffer

: (move-gap) ( i gb -- )
    move-gap? [
        move-gap-forward?
        [ move-gap-forward ] [ move-gap-back ] if
    ] [ 2drop ] if ;