check-whitespace ( str1 str2 -- )

Vocabulary

help.lint.checks

Inputs

str1	an object
str2	an object

Outputs

None

Definition

USING: formatting kernel sequences ;

IN: help.lint.checks

: check-whitespace ( str1 str2 -- )
    2dup [ ?last " (" member? ] [ ?first " ).,;:" member? ] bi*
    or
    [ 2drop ] [
        "Missing whitespace between strings ``%s'' and ``%s''"
        sprintf simple-lint-error
    ] if ;