summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--lisc/parse.c4
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) {