help.lint.checks: maybe clearer error message.

diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor
index 566dcb73596ef099b9803c91fdf78faeabcb51d7..b491fd43c9936954577d63746c4c038fe0d5bd7e 100644 (file)
--- a/basis/help/lint/checks/checks.factor
+++ b/basis/help/lint/checks/checks.factor
@@ -93,11 +93,11 @@ SYMBOL: vocab-articles
     ] if ;
 
 : check-value-effects ( word element -- )
-    [ effect-effects ]
-    [ extract-value-effects ]
-    bi* [ 2dup and [ = ] [ 2drop t ] if ] 2all?
-    [ "$quotation documentation in $values don't match stack effect" simple-lint-error ]
-    unless ;
+    [ effect-effects ] [ extract-value-effects ] bi*
+    [ 2dup and [ = ] [ 2drop t ] if ] 2all? [
+        "$quotation stack effects in $values don't match"
+        simple-lint-error
+    ] unless ;
 
 : check-nulls ( element -- )
     \ $values swap elements