1 files 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);