Load order fix
parent
c7a84b796f
commit
d2c64216cf
|
@ -262,3 +262,9 @@ M: f print-element drop ;
|
|||
[ dup article-title 2array ] map
|
||||
[ [ second ] 2apply <=> ] sort
|
||||
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
|
||||
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 -- )
|
||||
|
||||
: elements ( elt-type element -- seq ) [ elements* ] { } make ;
|
||||
|
|
Loading…
Reference in New Issue