Skip to content

Commit

Permalink
Fix thinko in R:I.MULTIPLY-MIX-TO-MIX
Browse files Browse the repository at this point in the history
It was always multiplying with itself
  • Loading branch information
lizmat committed Apr 29, 2017
1 parent f2fc567 commit 6641df8
Showing 1 changed file with 6 additions and 2 deletions.
8 changes: 6 additions & 2 deletions src/core/Rakudo/Internals.pm
Original file line number Diff line number Diff line change
Expand Up @@ -1125,10 +1125,14 @@ my class Rakudo::Internals {
nqp::if(
nqp::existskey($raw,nqp::iterkey_s(nqp::shift($iter))),
nqp::stmts(
(my $pair := nqp::atkey(elems,nqp::iterkey_s($iter))),
(my $pair := nqp::iterval($iter)),
nqp::bindattr($pair,Pair,'$!value',
nqp::getattr($pair,Pair,'$!value')
* nqp::getattr(nqp::iterval($iter),Pair,'$!value')
* nqp::getattr(
nqp::atkey($raw,nqp::iterkey_s($iter)),
Pair,
'$!value'
)
)
),
nqp::deletekey(elems,nqp::iterkey_s($iter))
Expand Down

0 comments on commit 6641df8

Please sign in to comment.