tools.completion: Add utility word for searching for a string in a sequence of strings.

2013-03-07 14:09:23 -08:00 · 2013-03-07 14:09:23 -08:00 · f9c96628c0
parent e9aeef7a5e
commit f9c96628c0
1 changed files with 3 additions and 0 deletions
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@ -107,6 +107,9 @@ PRIVATE>
 : colors-matching ( str -- seq )
    named-colors dup zip completions ;

+: strings-matching ( str seq -- seq' )
+    dup zip completions keys ;
+
 <PRIVATE

 : directory-paths ( directory -- alist )