[svn:parrot] r30294 - in trunk/languages/perl6/src: classes parser

[pmichaud]

Author: pmichaud
Date: Mon Aug 18 03:25:09 2008
New Revision: 30294

Modified:
   trunk/languages/perl6/src/classes/Array.pir
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  Fix bug with list context in statement modifier, Array.values
* Resolves RT #57960 (masak++)



Modified: trunk/languages/perl6/src/classes/Array.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Array.pir (original)
+++ trunk/languages/perl6/src/classes/Array.pir Mon Aug 18 03:25:09 2008
@@ -185,6 +185,19 @@
 .end
 
 
+=item values()
+
+Return the values of the Array as a List.
+
+=cut
+
+.sub 'values' :method
+    $P0 = new 'List'
+    splice $P0, self, 0, 0
+    .return ($P0)
+.end
+
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Mon Aug 18 03:25:09 2008
@@ -340,7 +340,7 @@
     }
     elsif ~$<sym> eq 'for' {
         my $past := PAST::Op.new(
-            $expr,
+            PAST::Op.new($expr, :name('list')),
             :pasttype($<sym>),
             :node( $/ )
         );