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

diff --git a/extra/lint/lint.factor b/extra/lint/lint.factor
index e6710302cce80e804d65b7a774d5853a9d27e501..6d609efd75d0dd9ee958985f5a13bbe933aea89b 100644 (file)
--- 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. ;