--- a/trunk/src/Expressions.d	Sun Jul 01 19:28:02 2007 +0000
+++ b/trunk/src/Expressions.d	Sun Jul 01 19:39:03 2007 +0000
@@ -135,8 +135,20 @@
 
 class MulExpression : BinaryExpression
 {
-  this(Expression left, Expression right, TOK tok)
-  { super(left, right, tok); }
+  this(Expression left, Expression right)
+  { super(left, right, TOK.Mul); }
+}
+
+class DivExpression : BinaryExpression
+{
+  this(Expression left, Expression right)
+  { super(left, right, TOK.Div); }
+}
+
+class ModExpression : BinaryExpression
+{
+  this(Expression left, Expression right)
+  { super(left, right, TOK.Mod); }
 }
 
 class CatExpression : BinaryExpression

--- a/trunk/src/Parser.d	Sun Jul 01 19:28:02 2007 +0000
+++ b/trunk/src/Parser.d	Sun Jul 01 19:39:03 2007 +0000
@@ -253,9 +253,26 @@
 
   Expression parseMulExpression()
   {
+    auto e = parseUnaryExpression();
+    while (1)
+    {
+      switch (lx.token.type)
+      {
+      case T.Mul: nT(); e = new MulExpression(e, parseUnaryExpression()); break;
+      case T.Div: nT(); e = new DivExpression(e, parseUnaryExpression()); break;
+      case T.Mod: nT(); e = new ModExpression(e, parseUnaryExpression()); break;
+      default: break;
+      }
+      break;
+    }
     return new Expression();
   }
 
+  Expression parseUnaryExpression()
+  {
+    return new Expression;
+  }
+
   void error(MID id, ...)
   {
     errors ~= new Information(Information.Type.Parser, id, lx.loc, arguments(_arguments, _argptr));