• sof's avatar
    [project @ 1999-05-21 14:46:19 by sof] · 263aaaa5
    sof authored
    Made rts_evalIO() stricter, i.e.,
    
       rts_evalIO( action );
    
    will now essentially cause `action' to be applied
    to the following (imaginary) defn of `evalIO':
    
        evalIO :: IO a -> IO a
        evalIO action = action >>= \ x -> x `seq` return x
    
    instead of just
    
        evalIO :: IO a -> IO a
        evalIO action = action >>= \ x -> return x
    
    The old, lazier behaviour is now available via rts_evalLazyIO().
    263aaaa5
StgMiscClosures.h 5.73 KB