: find-unused-in-string ( string -- seq )
strip-code [ get-imported-words ] [ find-used-words ] bi
- reject-unused-vocabs natural-sort ;
+ reject-unused-vocabs sort ;
: find-unused-in-file ( path -- seq )
utf8 file-contents find-unused-in-string ;
: find-unused. ( name -- )
dup find-unused dup empty?
[ print-no-unused-vocabs ]
- [ print-unused-vocabs ] if ;
\ No newline at end of file
+ [ print-unused-vocabs ] if ;