unsafeInterleaveIO

[Simon Marlow]

=20
> I submit that unsafeInterleaveIO hasn't worked on Hugs since=20
> at least July
> 2000 (when the implementation of concurrency was changed), and that it
> doesn't seem feasible to implement it with the current=20
> concurrency model.
> So I propose that we drop it from Hugs.

Can't you implement it like this:

  unsafeInterleaveIO io =3D return (unsafePerformIO io)

I seem to recall some reason why we couldn't do this on GHC, it might
have been something to do with the fact that this allows the argument to
unsafeInterleaveIO to be performed *before* the unsafeInterleaveIO if
the strictness analyser got hold of it, but this won't be a problem for
Hugs.

Cheers,
	Simon