?decrease ( gb -- )


Vocabulary
gap-buffer

Inputs
gban object


Outputs
None

Definition
USING: kernel ;

IN: gap-buffer

: ?decrease ( gb -- )
dup gb-too-big? [ decrease-buffer-size ] [ drop ] if ;