diff options
| author | Quentin Carbonneaux <quentin.carbonneaux@yale.edu> | 2015-11-01 09:15:27 -0500 |
|---|---|---|
| committer | Quentin Carbonneaux <quentin.carbonneaux@yale.edu> | 2015-11-01 09:15:27 -0500 |
| commit | 07c46bc6f905f3a70a043d633a7ec4b879f4db15 (patch) | |
| tree | 93be9fdadea89f2b91070c1c4853670497039ac4 /lisc | |
| parent | 46f99ac5b7bfda79dcd59b89257b8f9465c5a55a (diff) | |
| download | roux-07c46bc6f905f3a70a043d633a7ec4b879f4db15.tar.gz | |
support dots in idents for k0ga
Diffstat (limited to 'lisc')
| -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) { |