complete-token? ( tokens token -- ? )


Vocabulary
tools.completion.private

Inputs
tokensan object
tokenan object


Outputs
?an object


Definition
USING: kernel math sequences ;

IN: tools.completion.private

: complete-token? ( tokens token -- ? )
over last empty?
[ [ harvest ?last ] [ = ] bi* ] [
swap harvest dup length 1 >
[ 2 tail* ?first = ] [ 2drop f ] if
] if ; inline