On Wed Oct 21 15:40:57 2015, elizabeth wrote: > # this internally uses .push-at-least > $ 6 'my $l = gather { take-rw my $ = 1 }; $l.AT-POS(0) = 42' > Cannot modify an immutable Int > in block <unit> at -e:1 > > # this internally uses .pull-one > $ 6 'my $l = gather { take-rw my $ = 1 }; for @$l { $_ = 42 }; dd > $l.AT-POS(0)' > Int $var = 42 > > The former follows List!AT-POS-SLOWPATH, which in turn calls .push-at- > least. The latter does a .pull-one. > > > There were some “is raw” missing, but not on the AT-POS’s that were > encountered in this example. > > Also considered that we would need to have a Mu on the $pulled in > Iterator.push-at-least. > > > I also checked pushing to IterationBuffer: > > $ 6 'my $b = IterationBuffer.new; my $a = 42; $b.push($a); dd $b[0] = > 666' > Int $var = 666 > > So, I’m not sure anymore what TF is going on :-( >
Tracked it down. It wasn't actually anything to do with pull-one vs. push-at-least in the end, but instead that AT-POS in Seq was lacking "is raw". Added that, it things worked. Test coverage in S04-statements/gather.t.