Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
- index 8de7461..ca333b2 100644
- --- a/src/Perl6/Metamodel/BOOTSTRAP.pm
- +++ b/src/Perl6/Metamodel/BOOTSTRAP.pm
- @@ -503,12 +503,13 @@ Routine.HOW.add_method(Routine, 'set_rw', sub ($self) {
- Routine.HOW.add_method(Routine, 'set_inline_info', sub ($self, $info) {
- my $dcself := pir::perl6_decontainerize__PP($self);
- pir::repr_bind_attr_str__0PPss($dcself, Routine, '$!inline_info',
- - pir::repr_unbox_str__sP($info));
- + nqp::unbox_s($info));
- });
- Routine.HOW.add_method(Routine, 'inline_info', sub ($self) {
- my $dcself := pir::perl6_decontainerize__PP($self);
- - pir::repr_get_attr_str__SPPs($dcself, Routine, '$!inline_info')
- + my $inline_info := nqp::getattr_s($dcself, Routine, '$!inline_info');
- + pir::defined($inline_info) ?? $inline_info !! '';
- });
- # class Sub is Routine { ... }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement