Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix my $g = "a b"; <<c $g d>> not interpolating the sublist
$g gets turned into ('a', 'b') which does no longer interpolate
implicitly. Have to create explicit code to do that to keep << >>
semantics.
  • Loading branch information
niner committed Aug 28, 2015
1 parent 3e83f87 commit bf1307e
Showing 1 changed file with 13 additions and 1 deletion.
14 changes: 13 additions & 1 deletion src/Perl6/Actions.nqp
Expand Up @@ -8034,7 +8034,19 @@ class Perl6::QActions is HLL::Actions does STDActions {
for @words { $result.push($*W.add_string_constant(~$_)); }
}
else {
$result.push(QAST::Op.new( :op('callmethod'), :name('words'), :node($/), $node, QAST::IVal.new( :value(1), :named('autoderef') ) ) );
$result.push(
QAST::Op.new(
:op('callmethod'),
:name('Slip'),
QAST::Op.new(
:op('callmethod'),
:name('words'),
:node($/),
$node,
QAST::IVal.new( :value(1), :named('autoderef') )
)
)
);
}
}
walk($past);
Expand Down

0 comments on commit bf1307e

Please sign in to comment.