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

Timestamp:

10/06/06 12:57:59 (2 years ago)

Author:

audreyt

Message:

* Pugs.Prim.List: Remove the commented-out special case for

.map and .grep now smoke shows no adverse effects on removing them.

Files:

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

src/Pugs/Prim/List.hs

@@ -290 +290 @@
 op2Grep :: Val -> Val -> Eval Val
 op2Grep sub@(VCode _) list = op2Grep list sub
--- op2Grep (VList [v@(VRef (MkRef IArray{}))]) sub = op2Grep v sub
--- op2Grep (VList [v@(VRef (MkRef IHash{}))]) sub = op2Grep v sub
 op2Grep list sub = do
     args <- fromVal list
@@ -303 +301 @@
 op2Map :: Val -> Val -> Eval Val
 op2Map sub@(VCode _) list = op2Map list sub
--- op2Map (VList [v@(VRef (MkRef IArray{}))]) sub = op2Map v sub
--- op2Map (VList [v@(VRef (MkRef IHash{}))]) sub = op2Map v sub
 op2Map list sub = do
     args  <- fromVal list