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

Timestamp:

05/30/07 23:33:00 (18 months ago)

Author:

moritz

Message:

fixed zip to truncate to the shortest list

Files:

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

src/Pugs/Prim/List.hs

@@ -31 +31 @@
 
 op0Zip' :: [[Val]] -> [[Val]]
-op0Zip' lists | all null lists = []
+op0Zip' lists | any null lists = []
 op0Zip' lists = (map zipFirst lists):(op0Zip' (map zipRest lists))
     where