complete-single-vocab? ( tokens -- ? )

Vocabulary

tools.completion.private

Inputs

tokens

an object

Outputs

?

an object

Definition

USING: kernel math sequences ;

IN: tools.completion.private

: complete-single-vocab? ( tokens -- ? )
    dup last empty?
    [ harvest ?last (complete-single-vocab?) ] [
        harvest dup length 1 >
        [ 2 tail* ?first (complete-single-vocab?) ] [ drop f ]
        if
    ] if ;