Advertisement
Guest User

Untitled

a guest
Nov 28th, 2015
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.92 KB | None | 0 0
  1. diff --git a/src/core/Mu.pm b/src/core/Mu.pm
  2. index f123489..896630e 100644
  3. --- a/src/core/Mu.pm
  4. +++ b/src/core/Mu.pm
  5. @@ -342,7 +342,7 @@ Please refactor this code using the new Iterator / Seq interface.
  6. method gistseen(Mu:D \SELF: $id, $gist, *%named) {
  7. if $*gistseen -> \sems {
  8. my str $WHICH = nqp::unbox_s(self.WHICH);
  9. - if nqp::atkey(sems,$WHICH) {
  10. + if sems<$WHICH> {
  11. nqp::bindkey(sems,$WHICH,2);
  12. "{$id}_{nqp::objectid(SELF)}";
  13. }
  14. @@ -369,7 +369,7 @@ Please refactor this code using the new Iterator / Seq interface.
  15. method perlseen(Mu:D \SELF: $id, $perl, *%named) {
  16. if $*perlseen -> \sems {
  17. my str $WHICH = nqp::unbox_s(self.WHICH);
  18. - if nqp::atkey(sems,$WHICH) {
  19. + if sems<$WHICH> {
  20. nqp::bindkey(sems,$WHICH,2);
  21. "{$id}_{nqp::objectid(SELF)}";
  22. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement