steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
factor-shell
John Benediktsson 2018-02-05 15:40:46 -08:00
parent 8667655b3d
commit 849b6d76f4
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/fuel/help/help.factor
View File

@ -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