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

Timestamp:

05/31/07 00:44:52 (18 months ago)

Author:

moritz

Message:

fixed looping each() with empty arg list, introduced in previous commit

Files:

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

src/Pugs/Prim/List.hs

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