diff options
| -rw-r--r-- | lisc/parse.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisc/parse.c b/lisc/parse.c index 35f6d78..9e047dc 100644 --- a/lisc/parse.c +++ b/lisc/parse.c @@ -217,7 +217,7 @@ lex() t = TXXX; if (0) Alpha: c = fgetc(inf); - if (!isalpha(c)) + if (!isalpha(c) && c != '.') err("lexing failure"); i = 0; do { @@ -225,7 +225,7 @@ Alpha: c = fgetc(inf); err("identifier too long"); tok[i++] = c; c = fgetc(inf); - } while (isalpha(c) || isdigit(c)); + } while (isalpha(c) || c == '.' || isdigit(c)); tok[i] = 0; ungetc(c, inf); if (t != TXXX) { |