From e967e920be6865a456888aaa1c79812b7b2216f7 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 19 Apr 1989 15:00:07 +0000
Subject: [PATCH] removed one goto

---
 lang/m2/comp/LLlex.c | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/lang/m2/comp/LLlex.c b/lang/m2/comp/LLlex.c
index 83be7d26f..3e0bd9548 100644
--- a/lang/m2/comp/LLlex.c
+++ b/lang/m2/comp/LLlex.c
@@ -548,17 +548,18 @@ lexwarning(W_ORDINARY, "overflow in constant");
 			LoadChar(ch);
 		}
 
-		if (ch == 'E' || ch == 'D') {
-			/*	Scale factor
-			*/
-			if (ch == 'D') {
-				toktype = longreal_type;
-				LoadChar(ch);
-				if (!(ch == '+' || ch == '-' || is_dig(ch)))
-					goto noscale;
+		if (ch == 'D') {
+			toktype = longreal_type;
+			LoadChar(ch);
+			if (ch == '+' || ch == '-' || is_dig(ch)) {
+				ch = 'E';
 				PushBack();
 			}
-			if (np < &buf[NUMSIZE]) *np++ = 'E';
+		}
+		if (ch == 'E') {
+			/*	Scale factor
+			*/
+			if (np < &buf[NUMSIZE]) *np++ = ch;
 			LoadChar(ch);
 			if (ch == '+' || ch == '-') {
 				/*	Signed scalefactor
@@ -577,7 +578,6 @@ lexwarning(W_ORDINARY, "overflow in constant");
 			}
 		}
 
-noscale:
 		*np++ = '\0';
 		PushBack();