word-index ( string -- n/f )

Vocabulary

pdf.wrap.private

Inputs

string

an object

Outputs

n/f

an object

Definition

USING: kernel math sequences unicode ;

IN: pdf.wrap.private

: word-index ( string -- n/f )
    dup [ blank? ] find drop
    [ 1 + swap [ blank? not ] find-from drop ] [ drop f ] if* ;