eadt/Mul.icl

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