Changeset 14999 for src/Pugs/Prim/List.hs

Timestamp:

01/05/07 11:46:29 (23 months ago)

Author:

audreyt

Message:

* Pugs.Prim.List: Remove an unneccessary toInteger.

Files:

• src/Pugs/Prim/List.hs (modified) (1 diff)

src/Pugs/Prim/List.hs

@@ -84 +84 @@
 op2Pick l@(VList xs) (VNum n)
     | n == 1/0  = op2Pick l (VInt . toInteger $ length xs)
-    | otherwise = op2Pick l (VInt . toInteger $ floor n)
+    | otherwise = op2Pick l (VInt $ floor n)
 op2Pick (VList xs) (VInt num) = do
     shuffled <- shuffleN (fromInteger num) xs