get rid of two cases of pir::setattribute__0PPsP

rakudo · May 10, 2013 · 39ea92e · 39ea92e
1 parent d7f3d4e
commit 39ea92e
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/core/GatherIter.pm b/src/core/GatherIter.pm
@@ -11,9 +11,10 @@ class GatherIter is Iterator {
             $P1 = find_lex '$coro'
             $P1($P0)
         };
-        pir::setattribute__0PPsP(
-            pir::setattribute__0PPsP(nqp::create(self), GatherIter, '$!coro', $coro),
-            GatherIter, '$!infinite', $infinite);
+        my Mu $new := nqp::create(self);
+        nqp::bindattr($new, GatherIter, '$!coro', $coro);
+        nqp::bindattr($new, GatherIter, '$!infinite', $infinite);
+        $new;
     }
 
     multi method DUMP(GatherIter:D: :$indent-step = 4, :%ctx?) {