lint: Add a word to find redundant word props like 'inline [flushable|foldable]'

db4
Doug Coleman 2011-11-06 19:33:07 -08:00
parent 60f928ddbf
commit e4481b846b
1 changed files with 8 additions and 0 deletions

View File

@ -300,6 +300,14 @@ PRIVATE>
} 1&&
] any? ;
: find-redundant-word-props ( -- seq )
all-words [
{
[ { [ foldable? ] [ flushable? ] } 1|| ]
[ inline? ]
} 1&&
] filter ;
: lint-all ( -- seq )
all-words run-lint dup lint. ;