SMUDGE-MASK SM/REM SOURCE-LINE
SMUDGE-MASK
* SMUDGE-MASK ( -- bit-mask )

returns the bit-mask to check if a found word is smudge
(use in conjunction with >NAME-FLAGS@ and NAME-FLAGS! ) 
    " my-word" FIND-NAME IF NAME-FLAGS@ SMUDGE-MASK AND 
                       IF ." smudge" THEN ELSE DROP THEN

header ordinary constant