From 5fb53c851ca2e37f9e71f165d5536d3fcd553466 Mon Sep 17 00:00:00 2001
From: Cat Stevens <catb0t@protonmail.ch>
Date: Sun, 11 Feb 2018 23:22:19 -0500
Subject: [PATCH] repair overwritten changes

---
 extra/help/lint/coverage/coverage-tests.factor |  6 +++---
 extra/help/lint/coverage/coverage.factor       | 11 +++++++++--
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/extra/help/lint/coverage/coverage-tests.factor b/extra/help/lint/coverage/coverage-tests.factor
index 400cd984d9..075fda7846 100644
--- a/extra/help/lint/coverage/coverage-tests.factor
+++ b/extra/help/lint/coverage/coverage-tests.factor
@@ -1,6 +1,6 @@
-USING: accessors fuel.help.private help.lint.coverage
-help.lint.coverage.private help.markup help.syntax kernel
-literals math math.matrices sequences sorting tools.test vocabs ;
+USING: accessors help.lint.coverage help.lint.coverage.private 
+help.markup help.syntax kernel literals math math.matrices 
+sequences sorting tools.test vocabs ;
 IN: help.lint.coverage.tests
 
 <PRIVATE
diff --git a/extra/help/lint/coverage/coverage.factor b/extra/help/lint/coverage/coverage.factor
index ebb9ae53fd..b83fd15b11 100644
--- a/extra/help/lint/coverage/coverage.factor
+++ b/extra/help/lint/coverage/coverage.factor
@@ -1,9 +1,9 @@
 USING: accessors arrays classes classes.error combinators
 combinators.short-circuit continuations english eval formatting
-fry fuel.help.private generic help help.lint help.lint.checks help.markup io
+fry generic help help.lint help.lint.checks help.markup io
 io.streams.string io.styles kernel math namespaces parser
 prettyprint sequences sequences.deep sets sorting splitting strings summary
-vocabs words words.alias ;
+vocabs vocabs.parser words words.alias ;
 FROM: namespaces => set ;
 IN: help.lint.coverage
 
@@ -78,6 +78,13 @@ DEFER: ?pluralize
 M: word-help-coverage summary
     [ (present-coverage) ] with-string-writer ; inline
 
+: find-word ( name -- word/f )
+    dup words-named dup length {
+        { 0 [ 2drop f ] }
+        { 1 [ first nip ] }
+        [ drop <ambiguous-use-error> throw-restarts ]
+    } case ;
+
 : sorted-loaded-child-vocabs ( prefix -- assoc )
     loaded-child-vocab-names natural-sort ; inline