at a guess the magic take put is:

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

Keean.
_______________________________________________
Haskell-Cafe mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to