use reject instead of [ ... not ] filter.

[factor.git] / basis / help / lint / checks / checks.factor

diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor
index 47bf7c3dd2661c5de530417b7ddc04d41cc9223c..d5f5cce25940a536cafebfea52790403cf8628bd 100644 (file)
--- a/basis/help/lint/checks/checks.factor
+++ b/basis/help/lint/checks/checks.factor
@@ -157,7 +157,7 @@ SYMBOL: vocab-articles
             dup struct-class? [ struct-slots ] [ all-slots ] if
             [ name>> ] map
         ] [ extract-slots ] bi*
-        [ swap member? not ] with filter [
+        [ swap member? ] with reject [
             ", " join "Described $slot does not exist: " prepend
             simple-lint-error
         ] unless-empty