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

2011-11-06 19:33:07 -08:00 · 2011-11-06 19:33:07 -08:00 · e4481b846b
parent 60f928ddbf
commit e4481b846b
1 changed files with 8 additions and 0 deletions
--- a/extra/lint/lint.factor
+++ b/extra/lint/lint.factor
@ -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. ;