: interesting-words ( vocab -- array )
vocab-words
[ { [ "help" word-prop ] [ predicate? ] } 1|| ] reject
- natural-sort ;
+ sort ;
: interesting-words. ( vocab -- )
interesting-words [ (help.) nl ] each ;
: write-using ( vocab -- )
"USING:" write
using get members
- { "help.markup" "help.syntax" } append natural-sort remove
+ { "help.markup" "help.syntax" } append sort remove
[ bl write ] each
" ;" print ;