diff --git a/fco/Parse.hs b/fco/Parse.hs
index 6528d5e..c4bf025 100644
--- a/fco/Parse.hs
+++ b/fco/Parse.hs
@@ -371,7 +371,7 @@ dyadicOperator
     <|> do { reservedOp "-" ; return $ OcSubtr }
     <|> do { reservedOp "*" ; return $ OcMul }
     <|> do { reservedOp "/" ; return $ OcDiv }
-    <|> do { reservedOp "\\" ; return $ OcMod }
+    <|> do { reservedOp "\\" ; return $ OcRem }
     <|> do { sREM ; return $ OcRem }
     <|> do { sPLUS ; return $ OcPlus }
     <|> do { sMINUS ; return $ OcMinus }
diff --git a/fco/Tree.hs b/fco/Tree.hs
index 67170fe..6d0f818 100644
--- a/fco/Tree.hs
+++ b/fco/Tree.hs
@@ -81,7 +81,6 @@ data Node =
   | OcSubtr Node Node
   | OcMul Node Node
   | OcDiv Node Node
-  | OcMod Node Node
   | OcRem Node Node
   | OcPlus Node Node
   | OcMinus Node Node