Skip to content

Commit

Permalink
Reverted wrongful solution
Browse files Browse the repository at this point in the history
  • Loading branch information
vrurg committed Sep 1, 2019
1 parent 37d504e commit 9a371ad
Showing 1 changed file with 3 additions and 5 deletions.
8 changes: 3 additions & 5 deletions src/Perl6/Metamodel/DefaultParent.nqp
@@ -1,17 +1,15 @@
role Perl6::Metamodel::DefaultParent {
my @default_parent_type;
my $setting_only := 0;

method set_default_parent_type($type, :$setting-only = 0) {
@default_parent_type[0] := nqp::isconcrete($type) ?? $type !! $type.HOW.name($type);
$setting_only := $setting-only;
method set_default_parent_type($type) {
@default_parent_type[0] := $type;
}

method has_default_parent_type() {
+@default_parent_type
}

method get_default_parent_type() {
nqp::p6getlexclient( @default_parent_type[0], $setting_only );
@default_parent_type[0]
}
}

0 comments on commit 9a371ad

Please sign in to comment.