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

help: make sure error-classes are displayed in error index.

db4
John Benediktsson 2013-04-06 13:35:37 -07:00
parent decd9ed1ee
commit c74939e43b
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/help/help.factor
View File

@ -1,11 +1,10 @@
! Copyright (C) 2005, 2010 Slava Pestov. ! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays io io.styles kernel namespaces make USING: accessors arrays assocs classes classes.tuple
parser prettyprint sequences words words.symbol assocs combinators combinators.short-circuit continuations debugger
definitions generic quotations effects slots continuations effects generic help.crossref help.markup help.stylesheet
classes.tuple debugger combinators vocabs help.stylesheet help.topics io io.styles kernel make namespaces prettyprint
help.topics help.crossref help.markup sorting classes sequences sorting vocabs words words.symbol ;
vocabs.loader ;
IN: help IN: help
GENERIC: word-help* ( word -- content ) GENERIC: word-help* ( word -- content )
@ -40,7 +39,10 @@ M: predicate word-help* drop \ $predicate ;
all-articles [ xref-article ] each ; all-articles [ xref-article ] each ;
: error? ( word -- ? ) : error? ( word -- ? )
\ $error-description swap word-help elements empty? not ; {
[ error-class? ]
[ \ $error-description swap word-help elements empty? not ]
} 1|| ;
: sort-articles ( seq -- newseq ) : sort-articles ( seq -- newseq )
[ dup article-title ] { } map>assoc sort-values keys ; [ dup article-title ] { } map>assoc sort-values keys ;