Permalink
Browse files

Clean up for -> map translation, add Parcel.item.

  • Loading branch information...
1 parent 4f6bb1c commit 16c2f0d4989f0bb68b8828d6b92526661823191c @pmichaud pmichaud committed Jun 26, 2011
Showing with 5 additions and 2 deletions.
  1. +3 −2 src/Perl6/Actions.pm
  2. +2 −0 src/core/Parcel.pm
@@ -275,7 +275,8 @@ class Perl6::Actions is HLL::Actions {
:name<&eager>, :node($/),
PAST::Op.new(
:pasttype<callmethod>, :name<map>, :node($/),
- $cond, $past
+ PAST::Op.new(:name('&infix:<,>'), $cond),
+ $past
));
}
else {
@@ -454,7 +455,7 @@ class Perl6::Actions is HLL::Actions {
my $xblock := $<xblock>.ast;
my $past := PAST::Op.new(
:pasttype<callmethod>, :name<map>, :node($/),
- $xblock[0],
+ PAST::Op.new(:name('&infix:<,>'), $xblock[0]),
block_closure($xblock[1])
);
$past := PAST::Op.new( :name<&eager>, $past, :node($/) );
View
@@ -5,6 +5,8 @@ my class Parcel does Positional {
nqp::p6list(pir::clone__PP($!storage), List, 1.Bool)
}
+ method item() { my $v = self; }
+
method list() {
nqp::p6list(pir::clone__PP($!storage), List, Mu)
}

0 comments on commit 16c2f0d

Please sign in to comment.