[Haskell-cafe] readMVar and the devils

[MR K P SCHUPKE]

at a guess the magic take put is:

	block ( do 
		a <- takeMVar x
		putMVar x a
	)
	return a

Keean.