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

Timestamp:

05/12/05 13:32:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4536

Message:

* [].map and [].grep works again.

Files:

• src/Pugs/Prim/List.hs (modified) (2 diffs)

src/Pugs/Prim/List.hs

@@ -67 +67 @@
 op2Grep :: Val -> Val -> Eval Val
 op2Grep sub@(VCode _) list = op2Grep list sub
+op2Grep (VList [v@(VRef _)]) sub = op2Grep v sub
 op2Grep list sub = do
     args <- fromVal list
@@ -78 +79 @@
 op2Map :: Val -> Val -> Eval Val
 op2Map sub@(VCode _) list = op2Map list sub
+op2Map (VList [v@(VRef _)]) sub = op2Map v sub
 op2Map list sub = do
     args <- fromVal list