Advertisement
Guest User

Untitled

a guest
Nov 1st, 2011
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.94 KB | None | 0 0
  1. diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
  2. index 8de7461..ca333b2 100644
  3. --- a/src/Perl6/Metamodel/BOOTSTRAP.pm
  4. +++ b/src/Perl6/Metamodel/BOOTSTRAP.pm
  5. @@ -503,12 +503,13 @@ Routine.HOW.add_method(Routine, 'set_rw', sub ($self) {
  6. Routine.HOW.add_method(Routine, 'set_inline_info', sub ($self, $info) {
  7. my $dcself := pir::perl6_decontainerize__PP($self);
  8. pir::repr_bind_attr_str__0PPss($dcself, Routine, '$!inline_info',
  9. - pir::repr_unbox_str__sP($info));
  10. + nqp::unbox_s($info));
  11. });
  12.  
  13. Routine.HOW.add_method(Routine, 'inline_info', sub ($self) {
  14. my $dcself := pir::perl6_decontainerize__PP($self);
  15. - pir::repr_get_attr_str__SPPs($dcself, Routine, '$!inline_info')
  16. + my $inline_info := nqp::getattr_s($dcself, Routine, '$!inline_info');
  17. + pir::defined($inline_info) ?? $inline_info !! '';
  18. });
  19.  
  20. # class Sub is Routine { ... }
  21.  
  22.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement