Changeset 10246 for src/Pugs/Eval

Timestamp:

05/09/06 16:17:14 (3 years ago)

Author:

gaal

svk:copy_cache_prev:

13387

Message:

* Reduce metaoperator in list context gives a scan. Tests included.

TimToady?++. Chained ops scanning doesn't; consulting with p6-l.

Files:

• src/Pugs/Eval/Var.hs (modified) (2 diffs)

src/Pugs/Eval/Var.hs

@@ -13 +13 @@
 import Pugs.Embed.Perl5
 import Pugs.Bind
-import Pugs.Prim.List (op2Fold, op1HyperPrefix, op1HyperPostfix, op2Hyper)
+import Pugs.Prim.List (op2Reduce, op1HyperPrefix, op1HyperPostfix, op2Hyper)
 import Pugs.Prim.Param (foldParam)
 import Pugs.Pretty
@@ -217 +217 @@
             , subBody     = Prim $ \[vs] -> do
                 list_of_args <- fromVal vs
-                op2Fold list_of_args (VCode code)
+                op2Reduce list_of_args (VCode code)
             }
         -- Now we construct the sub. Is there a more simple way to do it?