Load order fix

darcs
slava 2006-12-17 21:31:03 +00:00
parent c7a84b796f
commit d2c64216cf
2 changed files with 6 additions and 6 deletions

View File

@ -262,3 +262,9 @@ M: f print-element drop ;
[ dup article-title 2array ] map [ dup article-title 2array ] map
[ [ second ] 2apply <=> ] sort [ [ second ] 2apply <=> ] sort
0 <column> ; 0 <column> ;
: error? ( word -- ? )
\ $error-description swap word-help elements empty? not ;
: all-errors ( -- seq )
all-words [ error? ] subset sort-articles ;

View File

@ -35,12 +35,6 @@ M: f article-content drop \ f article-content ;
articles get hash-keys articles get hash-keys
all-words [ word-help ] subset append ; all-words [ word-help ] subset append ;
: error? ( word -- ? )
\ $error-description swap word-help elements empty? not ;
: all-errors ( -- seq )
all-words [ error? ] subset natural-sort ;
GENERIC: elements* ( elt-type element -- ) GENERIC: elements* ( elt-type element -- )
: elements ( elt-type element -- seq ) [ elements* ] { } make ; : elements ( elt-type element -- seq ) [ elements* ] { } make ;