From 02154c02b2df2dbeb15b317c83685ef2a2ac3560 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 13 Jul 1988 20:13:17 +0000
Subject: [PATCH] fixed problem with D scale factor

---
 lang/m2/comp/LLlex.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lang/m2/comp/LLlex.c b/lang/m2/comp/LLlex.c
index 627513387..92f8cea3f 100644
--- a/lang/m2/comp/LLlex.c
+++ b/lang/m2/comp/LLlex.c
@@ -582,6 +582,7 @@ lexwarning(W_ORDINARY, "overflow in constant");
 				LoadChar(ch);
 				if (!(ch == '+' || ch == '-' || is_dig(ch)))
 					goto noscale;
+				UnloadChar(ch);
 			}
 			if (np < &buf[NUMSIZE]) *np++ = 'E';
 			LoadChar(ch);
-- 
2.34.1