eadt/Sub.icl

   1 implementation module Sub
   2
   3 import StdEnv
   4 import main
   5 import Mul
   6
   7 evalSub :: Expr -> Int
   8 evalSub (e1 -. e2) = eval e1 - eval e2
   9 evalSub x = evalMul x
  10
  11 pprintSub :: Expr -> String
  12 pprintSub (e1 -. e2) = pprint e1 +++ " - " +++ pprint e2
  13 pprintSub x = pprintMul x