[Moved Jhc.List.drop to module Jhc.Basics (since it is used in instance deriving)
jcpetruzza@gmail.com**20120214222939
 Ignore-this: f95d4818bad6d79d8fc7566ee0912714
] hunk ./lib/jhc/Jhc/Basics.hs 7
+import Jhc.Int
hunk ./lib/jhc/Jhc/Basics.hs 123
+drop :: Int -> [a] -> [a]
+drop n xs = f n xs where
+    f n xs | n `leq` zero =  xs
+    f _ [] = []
+    f n (_:xs) = f (n `minus` one) xs
+
+foreign import primitive "Lte" leq :: Int -> Int -> Bool
+
hunk ./lib/jhc/Jhc/List.hs 332
-drop :: Int -> [a] -> [a]
-drop n xs = f n xs where
-    f n xs | n <= zero =  xs
-    f _ [] = []
-    f n (_:xs) = f (n `minus` one) xs
-