Permalink
Browse files

Make self available in initializer thunks, fixes #93

  • Loading branch information...
1 parent a900903 commit 51924175e9ae1d9716b37e4387144eef126900f6 @sorear committed May 21, 2012
Showing with 2 additions and 2 deletions.
  1. +1 −1 lib/Kernel.cs
  2. +1 −1 src/NieczaActions.pm6
View
@@ -5356,7 +5356,7 @@ internal class MMDCandidate : MultiCandidate {
} else {
P6any init = prog[i].init;
th.lexi0 = i;
- return init.Invoke(th, Variable.None, null);
+ return init.Invoke(th, new [] { NewROScalar(n) }, null);
}
value: vx = (Variable) th.resultSlot;
View
@@ -2792,7 +2792,7 @@ method do_initialize($/, $parcel?) {
$ll]) });
}
elsif $lhs.^isa($OpAttribute) {
- my $init = self.thunk_sub($rhs,
+ my $init = self.thunk_sub($rhs, :params(['self']),
:name($lhs.initializer.name ~ " init"));
$init.set_outervar(my $ov = self.gensym);
$*CURLEX<!sub>.add_my_sub($ov, $init);

0 comments on commit 5192417

Please sign in to comment.