From 6774514bcfc8b4b447237f144dba68fed74688aa Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Sun, 21 Feb 2016 15:00:00 -0500
Subject: eshtrans/frontend: Fix validation patterns in accept()

---
(limited to 'eshtrans/frontend')

diff --git a/eshtrans/frontend/lexer.esh b/eshtrans/frontend/lexer.esh
index 069f36b..3c8cb27 100644
--- a/eshtrans/frontend/lexer.esh
+++ b/eshtrans/frontend/lexer.esh
@@ -939,9 +939,10 @@ accept()
 			fi
 			# Validate name.
 			case "${tok#*${US}}" in
-				[A-Za-z_][0-9A-Za-z_]*)
+				[!A-Za-z_]*)
+					return 1
 					;;
-				*)
+				*[!0-9A-Za-z_]*)
 					return 1
 					;;
 			esac
@@ -954,9 +955,10 @@ accept()
 			fi
 			# Validate name.
 			case "${tok#*${US}}" in
-				[A-Za-z_][0-9A-Za-z_]*)
+				[!A-Za-z_]*)
+					return 1
 					;;
-				*)
+				*[!0-9A-Za-z_]*)
 					return 1
 					;;
 			esac
--
cgit v0.9.1