From 5ee168e734cc0d91e171f22e1269825df7d3cdfa Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Sun, 28 Feb 2016 01:28:15 -0500
Subject: eshtrans/frontend: Fix lungetc()

It needn't be called for non-backslash word characters.
---
(limited to 'eshtrans')

diff --git a/eshtrans/frontend/lexer.esh b/eshtrans/frontend/lexer.esh
index 75f02c8..8bba0e0 100644
--- a/eshtrans/frontend/lexer.esh
+++ b/eshtrans/frontend/lexer.esh
@@ -99,7 +99,7 @@ lgetc()
 
 lungetc()
 {
-	lbufi=$((${lbufi} - 1))
+	lbufi=$((${lbufi} - 2))
 	eval "c=\${lbufv_${lbufi}}"
 	#echo "LUNGETC:$lineno: $lbufi '$c'" >&2
 	lbufi=$((${lbufi} + 1))
@@ -222,7 +222,6 @@ next()
 				return
 				;;
 			*)
-				lungetc
 				next_word
 				return
 				;;
--
cgit v0.9.1