--- a/lexer/Token.d	Mon Jul 21 17:56:33 2008 +0200
+++ b/lexer/Token.d	Mon Jul 21 18:16:50 2008 +0200
@@ -100,6 +100,14 @@
     }
 
     /**
+      just a shortcut to avoid `token.type == tok.For`.
+     */
+    bool isFor()
+    {
+        return type == Tok.For;
+    }
+
+    /**
       just a shortcut to avoid `token.type == tok.If`.
      */
     bool isIf()
@@ -193,6 +201,7 @@
 
     If, Else,
     While,
+    For,
     Switch, Case, Default, Break,
     Return, Cast, 
 
@@ -274,6 +283,7 @@
         Tok.Integer:"Integer",
         Tok.If:"If",
         Tok.While:"While",
+        Tok.For:"For",
         Tok.Switch:"Switch",
         Tok.Case:"Case",
         Tok.Default:"Default",