repositories
/
clean-tests.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
-
[clean-tests.git]
/
old
/
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?"