add new primop: asyncExceptionsBlocked# :: IO Bool