<string-search> ( values search quot -- model )


Vocabulary
models.search

Inputs
valuesan object
searchan object
quotan object


Outputs
modelan object


Definition
USING: kernel sequences unicode ;

IN: models.search

: <string-search> ( values search quot -- model )
'[ swap @ [ >case-fold ] bi@ subseq? ] <search> ; inline