fuel.help: change find-word to use words-named.

It still returns the "first" word found (which might be dubious), but
now it supports qualified search like "math:+" find-word.

diff --git a/extra/fuel/help/help.factor b/extra/fuel/help/help.factor
index 48500f5777ccc24d368d71e8751ee3b21e2e4fcd..0e6428c445ae3a9a53823535b60f23ad810e07a0 100644 (file)
--- a/extra/fuel/help/help.factor
+++ b/extra/fuel/help/help.factor
@@ -1,10 +1,11 @@
 ! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs combinators combinators.short-circuit
-fry help help.crossref help.markup help.markup.private help.topics
-help.vocabs io io.streams.string kernel make namespaces parser
-prettyprint see sequences splitting summary vocabs vocabs.hierarchy
-vocabs.metadata vocabs.parser words ;
+USING: accessors arrays assocs combinators
+combinators.short-circuit help help.crossref help.markup
+help.markup.private help.topics help.vocabs io io.streams.string
+kernel make namespaces parser prettyprint see sequences
+splitting summary vocabs vocabs.hierarchy vocabs.metadata
+vocabs.parser words ;
 IN: fuel.help
 
 SYMBOLS: $doc-path $next-link $prev-link $fuel-nav-crumbs ;
@@ -35,7 +36,7 @@ SYMBOLS: $doc-path $next-link $prev-link $fuel-nav-crumbs ;
 <PRIVATE
 
 : find-word ( name -- word/f )
-    { [ search ] [ '[ name>> _ = ] all-words swap find nip ] } 1|| ;
+    { [ search ] [ words-named ?first ] } 1|| ;
 
 : definition-str ( word -- str )
     [ see ] with-string-writer ; inline