Skip to content
Browse files

Don't itemize containers bound into an aggregate

In accordance with discussions this week on #perl6.  This affects things like
my %foo; %foo<k> := 1..3; join ';', %foo<k>
  • Loading branch information...
1 parent 1f35f89 commit 1252cdbdfd1158180fc8853cd2c81114f1b5f58b @sorear committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Kernel.cs
View
4 lib/Kernel.cs
@@ -3980,7 +3980,7 @@ class IxHashBindKey : BindHandler {
string kss = ks.mo.mro_raw_Str.Get(key);
VarHash h = Kernel.UnboxAny<VarHash>(os);
- return h[kss] = Kernel.NewBoundVar(Kernel.NBV_RW, Kernel.MuMO, to);
+ return h[kss] = to;
}
}
class IxHashAtKey : IndexHandler {
@@ -4105,7 +4105,7 @@ class IxListBindPos : BindHandler {
while (items.Count() <= ix) {
items.Push(Kernel.NewTypedScalar(null));
}
- return items[ix] = Kernel.NewBoundVar(Kernel.NBV_RW, Kernel.MuMO, to);
+ return items[ix] = to;
}
}

0 comments on commit 1252cdb

Please sign in to comment.
Something went wrong with that request. Please try again.