Load order fix
parent
c7a84b796f
commit
d2c64216cf
|
@ -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 ;
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue