--- a/parser/Action.d	Wed Apr 23 16:43:42 2008 +0200
+++ b/parser/Action.d	Wed Apr 23 17:01:24 2008 +0200
@@ -138,6 +138,13 @@
         return null;
     }
 
+    /**
+     */
+    StmtT actOnWhileStmt(ref Token whileTok, ExprT cond, StmtT whileBody)
+    {
+        return null;
+    }
+
     StmtT actOnStartOfSwitchStmt()
     {
         return null;
@@ -258,6 +265,13 @@
         return new IfStmt(c, t, e);
     }
 
+    override StmtT actOnWhileStmt(ref Token tok, ExprT cond, StmtT whileBody)
+    {
+        Exp c = cast(Exp)cond;
+        Stmt b = cast(Stmt)whileBody;
+        return new WhileStmt(c, b);
+    }
+
     // -- Expressions --
     override ExprT actOnNumericConstant(Token c)
     {