Specialisation ignores mutual blocks

[mbenke]

examples/mutual/forward.fun
mutual
{
  foo : Int;
  foo = k 1 3;
  k x y = x
};
main = foo

------------
Specialised:
------------
main = (foo: Int)

------------
Core:
------------
function main () -> int {
  return foo
}