From 2e8e6b243c329e4bcfe0bf7e66cf0a778740dede Mon Sep 17 00:00:00 2001
From: Oskari Timperi <oskari.timperi@iki.fi>
Date: Thu, 10 Dec 2015 19:25:39 +0200
Subject: TInterpreter: get the first token on creation

---
 calc1.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/calc1.pas b/calc1.pas
index 436f03a..fd52e45 100644
--- a/calc1.pas
+++ b/calc1.pas
@@ -176,7 +176,7 @@ end;
 constructor TInterpreter.Create(Lexer_: TLexer);
 begin
     Lexer := Lexer_;
-    CurrentToken := Default(Token);
+    CurrentToken := Lexer.GetNextToken;
 end;
 
 procedure TInterpreter.Error;
-- 
cgit v1.2.3