Bug in emptySampleVar

[Simon Marlow]

> Hello!
> In my opinion there is a bug in the emptySampleVar-function in 
> Control.Concurrent.SampleVar.
> 
> emptySampleVar :: SampleVar a -> IO ()
> emptySampleVar v = do
>    (readers, var) <- takeMVar v
>    if readers >= 0 then
>  	takeMVar var >>    			<- I think this 
> line is missing
> 	putMVar v (0,var)
>    else
>      	putMVar v (readers,var)

And it looks to me like  "readers >= 0" should be "readers > 0".  Anyone
agree/disagree?

Cheers,
	Simon