*** List.old	2010-11-17 15:28:16.000000000 +0000
--- libraries/base/Data/List.hs	2010-11-17 15:29:26.000000000 +0000
***************
*** 1011,1024 ****
  sum                     =  foldl (+) 0
  product                 =  foldl (*) 1
  #else
! sum     l       = sum' l 0
!   where
!     sum' []     a = a
!     sum' (x:xs) a = sum' xs (a+x)
! product l       = prod l 1
!   where
!     prod []     a = a
!     prod (x:xs) a = prod xs (a*x)
  #endif
  
  -- -----------------------------------------------------------------------------
--- 1011,1018 ----
  sum                     =  foldl (+) 0
  product                 =  foldl (*) 1
  #else
! sum                     =  foldl' (+) 0
! product                 =  foldl' (*) 1
  #endif
  
  -- -----------------------------------------------------------------------------