From 07c46bc6f905f3a70a043d633a7ec4b879f4db15 Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date: Sun, 1 Nov 2015 09:15:27 -0500
Subject: support dots in idents for k0ga

---
 lisc/parse.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lisc')

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) {
-- 
cgit 1.4.1