1 ! Copyright (C) 2008, 2009 Slava Pestov
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel models.arrow.smart sequences unicode ;
6 : <search> ( values search quot -- model )
7 '[ _ curry filter ] <smart-arrow> ; inline
9 : <string-search> ( values search quot -- model )
10 '[ @ [ >case-fold ] bi@ subseq-index? ] <search> ; inline