diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-30 12:04:21 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-30 12:04:21 +0000 |
| commit | f2e0c40f5bbdd16fdb2354e3052a905776a944f0 (patch) | |
| tree | d72f11536099c251274cc0cd57137095ad771019 /transfer | |
| parent | afffb0367bdfda9b9b7a4153d5738bb15b444186 (diff) | |
Remove more useless pattern matching and variable bindings in transfer compilation.
Diffstat (limited to 'transfer')
| -rw-r--r-- | transfer/examples/nat.tr | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/transfer/examples/nat.tr b/transfer/examples/nat.tr index cd9101574..c529e5238 100644 --- a/transfer/examples/nat.tr +++ b/transfer/examples/nat.tr @@ -14,9 +14,5 @@ natToInt : Nat -> Int natToInt Zero = 0 natToInt (Succ n) = 1 + natToInt n -plus : Nat -> Nat -> Nat -plus Zero y = y -plus (Succ x) y = Succ (plus x y) - intToNat : Int -> Nat intToNat n = if n == 0 then Zero else Succ (intToNat (n-1)) |