Mem.hs

{-# OPTIONS_JHC -fno-prelude -fffi #-}

module System.Mem where

import Jhc.Prim.IO

foreign import ccall safe "hs_perform_gc" performGC :: IO ()