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

Timestamp:

05/13/06 03:12:48 (3 years ago)

Author:

audreyt

svk:copy_cache_prev:

13387

Message:

* Prim.List: [+] 1,2,3 is again fold, not scan.

Files:

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

src/Pugs/Prim/List.hs

@@ -167 +167 @@
     code <- fromVal sub
     args <- fromVal list
-    cxt  <- asks envContext
-    let (reduceM, reduceMn) = getReduceFuncs cxt
+    -- cxt  <- asks envContext
+    let (reduceM, reduceMn) = (foldM, foldMn) -- getReduceFuncs cxt
     let arity = length $ subParams code
     if arity < 2 then fail "Cannot reduce() using a unary or nullary function." else do