[ 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 ;
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 ;