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

Timestamp:

05/11/05 16:19:49 (4 years ago)

Author:

bsmith

svk:copy_cache_prev:

4536

Message:

Misc refactoring within Pugs.Prim and Pugs.AST. Factored eval primitives
to Pugs.Prim.Eval. Removed Pugs.Cont from Pugs.Internals.

Files:

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

src/Pugs/Prim/List.hs

@@ -11 +11 @@
 import Pugs.Prim.Numeric
 
-op0Zip :: [[Val]] -> [[Val]]
-op0Zip lists | all null lists = []
-op0Zip lists = (map zipFirst lists):(op0Zip (map zipRest lists))
+op0Zip = fmap (VList . concat . op0Zip') . mapM fromVal
+
+op0Zip' :: [[Val]] -> [[Val]]
+op0Zip' lists | all null lists = []
+op0Zip' lists = (map zipFirst lists):(op0Zip' (map zipRest lists))
     where
     zipFirst []     = undef