Cosmetics.
% -----------------------------------------------------------------------------
-% $Id: PrelBase.lhs,v 1.44 2001/04/03 15:05:52 simonmar Exp $
+% $Id: PrelBase.lhs,v 1.45 2001/04/14 22:28:22 qrczak Exp $
%
% (c) The University of Glasgow, 1992-2000
%
#if WORD_SIZE_IN_BYTES == 4
{-# RULES
-"intToInt32#" forall x#. intToInt32# x# = x#
+"intToInt32#" forall x#. intToInt32# x# = x#
"wordToWord32#" forall x#. wordToWord32# x# = x#
#-}
#endif
foreign import "stg_intToInt64" unsafe intToInt64# :: Int# -> Int64#
foreign import "stg_int64ToInt" unsafe int64ToInt# :: Int64# -> Int#
foreign import "stg_wordToWord64" unsafe wordToWord64# :: Word# -> Word64#
-foreign import "stg_word64ToWord" unsafe word64ToWord# :: Word64# -> Word#
foreign import "stg_int64ToWord64" unsafe int64ToWord64# :: Int64# -> Word64#
foreign import "stg_word64ToInt64" unsafe word64ToInt64# :: Word64# -> Int64#
foreign import "stg_and64" unsafe and64# :: Word64# -> Word64# -> Word64#
% ------------------------------------------------------------------------------
-% $Id: PrelList.lhs,v 1.23 2001/02/26 09:29:32 simonpj Exp $
+% $Id: PrelList.lhs,v 1.24 2001/04/14 22:28:22 qrczak Exp $
%
% (c) The University of Glasgow, 1994-2000
%
zip takes two lists and returns a list of corresponding pairs. If one
input list is short, excess elements of the longer list are discarded.
zip3 takes three lists and returns a list of triples. Zips for larger
-tuples are in the List library
+tuples are in the List module.
\begin{code}
----------------------------------------------
% ------------------------------------------------------------------------------
-% $Id: PrelNum.lhs,v 1.38 2001/03/29 13:55:01 simonmar Exp $
+% $Id: PrelNum.lhs,v 1.39 2001/04/14 22:28:22 qrczak Exp $
%
% (c) The University of Glasgow, 1994-2000
%
| otherwise = jtos' n cs
where
jtos' :: Integer -> String -> String
- jtos' n cs
- | n < 10 = case unsafeChr (ord '0' + fromInteger n) of
- c@(C# _) -> c:cs
+ jtos' n' cs'
+ | n' < 10 = case unsafeChr (ord '0' + fromInteger n') of
+ c@(C# _) -> c:cs'
| otherwise = case unsafeChr (ord '0' + fromInteger r) of
- c@(C# _) -> jtos' q (c:cs)
+ c@(C# _) -> jtos' q (c:cs')
where
- (q,r) = n `quotRemInteger` 10
+ (q,r) = n' `quotRemInteger` 10
\end{code}
% -----------------------------------------------------------------------------
-% $Id: PrelStorable.lhs,v 1.5 2001/04/13 21:37:43 panne Exp $
+% $Id: PrelStorable.lhs,v 1.6 2001/04/14 22:28:22 qrczak Exp $
%
% (c) The FFI task force, 2000
%
\end{code}
\begin{code}
-import Char ( chr, ord )
import Monad ( liftM )
#ifdef __GLASGOW_HASKELL__