] bi ;
: check-whitespace ( str1 str2 -- )
- [ ?last " (" member? ] [ ?first " )." member? ] bi* or
- [ "Missing whitespace between strings" simple-lint-error ] unless ;
+ 2dup [ ?last " (" member? ] [ ?first " ).,;:" member? ] bi* or
+ [ 2drop ] [
+ "Missing whitespace between strings ``%s'' and ``%s''"
+ sprintf simple-lint-error
+ ] if ;
: check-bogus-nl ( element -- )
{ { $nl } { { $nl } } } [ head? ] with any? [