/usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Integral_Int.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Integral_Int.hs


module Prelude(Integral(..)) where

import PrimIntegerFromInt

instance Integral Int  where
    n `quot`    d   	= n `quot` d			-- MAGIC 
    n `rem`     d   	= n `rem`  d			-- MAGIC
    n `quotRem` d 	= (n `quot` d, n `rem` d) 	-- er, not so MAGIC!

    toInteger n 	= primIntegerFromInt n

(Return to Plan 9 Home Page)