From ec7c4e0d60e22c10b6f7817436bd3f4abf2d5356 Mon Sep 17 00:00:00 2001
From: Ori Bernstein <ori@eigenstate.org>
Date: Sun, 28 Feb 2016 19:40:06 -0800
Subject: Make parser slightly more accepting.

	'_' is ok to start a symbol, and '$' is an acceptable character
	within a symbol.
---
 lisc/parse.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisc/parse.c b/lisc/parse.c
index 2c25476..1a39db6 100644
--- a/lisc/parse.c
+++ b/lisc/parse.c
@@ -247,15 +247,15 @@ lex()
 	}
 	if (0)
 Alpha:		c = fgetc(inf);
-	if (!isalpha(c) && c != '.')
-		err("lexing failure");
+	if (!isalpha(c) && c != '.' && c != '_')
+		err("lexing failure: invalid character %c (%d)", c, c);
 	i = 0;
 	do {
 		if (i >= NString-1)
 			err("identifier too long");
 		tok[i++] = c;
 		c = fgetc(inf);
-	} while (isalpha(c) || c == '.' || c == '_' || isdigit(c));
+	} while (isalpha(c) || c == '$' || c == '.' || c == '_' || isdigit(c));
 	tok[i] = 0;
 	ungetc(c, inf);
 	if (t != TXXX) {
-- 
cgit 1.4.1