help.lint.checks: adjust checks for whitespace

[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 a6084b2da6302f52ed35a36d9a28aca67e81da7c..4097364f31140ad37c48964d9ec2f8604bac42a5 100644 (file)
--- a/basis/help/lint/checks/checks.factor
+++ b/basis/help/lint/checks/checks.factor
@@ -154,7 +154,7 @@ SYMBOL: vocab-articles
     ] bi ;
 
 : check-whitespace ( str1 str2 -- )
-    [ " " tail? ] [ " " head? ] bi* or
+    [ ?last " (" member? ] [ ?first " )." member? ] bi* or
     [ "Missing whitespace between strings" simple-lint-error ] unless ;
 
 : check-bogus-nl ( element -- )