[project @ 2004-11-16 23:36:36 by ross]

drop with a negative length should yield the whole list, not []

diff --git a/GHC/List.lhs b/GHC/List.lhs
index edd823e..96b5383 100644 (file)
--- a/GHC/List.lhs
+++ b/GHC/List.lhs
@@ -341,7 +341,7 @@ take_unsafe_UInt_append     m  ls rs  =
     (x:xs) -> x : take_unsafe_UInt_append (m -# 1#) xs rs
 
 drop (I# n#) ls
-  | n# <# 0#   = []
+  | n# <# 0#   = ls
   | otherwise  = drop# n# ls
     where
        drop# :: Int# -> [a] -> [a]