TInterpreter: get the first token on creation

1 files changed, 1 insertions, 1 deletions

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;