[project @ 2001-08-22 11:45:06 by sewardj]
[ghc-hetmet.git] / ghc / tests / rename / should_compile / rn006.hs
1 -- !!! rn006: two sets of mutually-recursive blobs:
2 -- !!!  f, g, h are mut rec
3 -- !!!  i, j, k are mut rec
4
5 module Test where
6
7 f x = g x x
8 i x = j x x
9
10 g x y = h x x y
11 j x y = k x x y
12
13 h x y z = f z
14 k x y z = i z