From 60da249b49e9e53205ede54f1778349407882203 Mon Sep 17 00:00:00 2001
From: Oskari Timperi <oskari.timperi@iki.fi>
Date: Tue, 8 Dec 2015 22:04:51 +0200
Subject: combine if's in GetNextToken

---
 calc1.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/calc1.pas b/calc1.pas
index 69a39c4..2efd2a3 100644
--- a/calc1.pas
+++ b/calc1.pas
@@ -143,9 +143,8 @@ begin
     begin
         Result := TokenInteger.Create(GetInteger);
         Exit;
-    end;
-
-    if CurChar = '+' then
+    end
+    else if CurChar = '+' then
     begin
         Result := TokenPlus.Create;
         Inc(CurPos);
-- 
cgit v1.2.3