From f9c96628c093bde4c46cc9c9f816a34210f02bf6 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 7 Mar 2013 14:09:23 -0800
Subject: [PATCH] tools.completion: Add utility word for searching for a string
in a sequence of strings.
---
basis/tools/completion/completion.factor | 3 +++
1 file changed, 3 insertions(+)
diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor
index 5b7576fdb8..7a0a0a6e7a 100644
--- 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 )