<commit_before>%
% (c) The AQUA Project, Glasgow University, 1994-1996
%

\section[IOExts]{Module @IOExts@}

\begin{code}
{-# OPTIONS -fno-implicit-prelude #-}

module IOExts
        ( fixIO
        , unsafePerformIO
        , unsafeInterleaveIO

        , IORef
          -- instance Eq (MutVar a)
        , newIORef
        , readIORef
        , writeIORef

        , trace
        , performGC
        ) where
\end{code}

\begin{code}
import IOBase
import IORef
import STBase
import Unsafe
\end{code}<commit_msg>[project @ 1997-11-21 11:23:04 by simonm] Add reallyUnsafePtrEq.<commit_after>%
% (c) The AQUA Project, Glasgow University, 1994-1996
%

\section[IOExts]{Module @IOExts@}

\begin{code}
{-# OPTIONS -fno-implicit-prelude #-}

module IOExts
        ( fixIO
        , unsafePerformIO
        , unsafeInterleaveIO

        , IORef
          -- instance Eq (MutVar a)
        , newIORef
        , readIORef
        , writeIORef

        , trace
        , performGC
	
	, reallyUnsafePtrEq
        ) where
\end{code}

\begin{code}
import PrelBase
import IOBase
import IORef
import STBase
import Unsafe
import GHC

reallyUnsafePtrEq a b =
    case reallyUnsafePtrEquality# a b of
	 0# -> False
	 _  -> True
\end{code}
{'fraction_non_alphanumeric': 0.09983633387888707, 'fraction_numerical': 0.02536824877250409, 'mean_word_length': 2.278820375335121, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4861718', 'n_tokens_mistral': 468, 'n_tokens_neox': 425, 'n_words': 101}