Skip to content
Permalink
Browse files

Fixed method cloning

  • Loading branch information...
vrurg committed Mar 22, 2019
1 parent 787d5bf commit d14fad4a69cc815d5c985be5adfe2705371eda8d
Showing with 6 additions and 1 deletion.
  1. +1 −1 src/Perl6/Metamodel/BOOTSTRAP.nqp
  2. +5 −0 src/Perl6/World.nqp
@@ -1212,7 +1212,7 @@ class ContainerDescriptor::BindArrayPos2D does ContainerDescriptor::Whence {
$self
}

method name() {
method name() {
'element at [' ~ $!one ~ ',' ~ $!two ~ ']' # XXX name ?
}
method assigned($scalar) {
@@ -2472,6 +2472,10 @@ class Perl6::World is HLL::World {
unless $precomp {
$compiler_thunk();
}
my $code_obj := nqp::getcodeobj(nqp::curcode());
unless nqp::isnull($code_obj) {
return $code_obj(|@pos, |%named);
}
$precomp(|@pos, |%named);
});
@compstuff[1] := $compiler_thunk;
@@ -2511,6 +2515,7 @@ class Perl6::World is HLL::World {
self.context().add_cleanup_task(sub () {
nqp::bindattr($clone, $code_type, '@!compstuff', nqp::null());
});
self.context().add_clone_for_cuid($clone, $cuid);
my $tmp := $fixups.unique('tmp_block_fixup');
$fixups.push(QAST::Stmt.new(
QAST::Op.new(

0 comments on commit d14fad4

Please sign in to comment.
You can’t perform that action at this time.