Allow namechars to appear in token when performing nameguard check

[pdw-mb]

Consider:

myrule = 
"key" ~ ";" |
"key-word" ~ ";" |
"key-word-extra" ~ ";" ;

And set namechars = '-'.

This will happily parse "key" and "key-word" but not "key-word-extra", because nameguard requires that the token being matched is alphanumeric:

partial_match = (
                token.isalnum() and
                token[0].isalpha() and
                self.is_name_char(self.current())
            )

I think this check should allow namechars to appear in the token being matched too.

[apalala]

I can understand the need, but not the example. PEG grammars should place longer options first:

myrule 
    = 
    (key-word-extra" | "key-word" | "key") ~ ";" 
    ;

At any rate, for consistency the check should be:

        partial_match = all(self.is_name_char(t) for t in token + self.current())