replace repr_box with perl6_box ops

rakudo · Jun 6, 2011 · 85cebb8 · 85cebb8
1 parent a6180c8
commit 85cebb8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/CORE.setting/Int.pm b/src/CORE.setting/Int.pm
@@ -8,10 +8,10 @@ my class Int {
 
     # XXX multi method Str(Int:D $self:) { ...
     method Str() {
-        pir::repr_box_str__PSP(pir::repr_unbox_int__IP(self), Str);
+        pir::perl6_box_str__PS(pir::repr_unbox_int__IP(self));
     }
     method Num() {
-        pir::repr_box_num__PNP(pir::repr_unbox_int__IP(self), Num);
+        pir::perl6_box_num__PN(pir::repr_unbox_int__IP(self));
     }
 }
 
diff --git a/src/CORE.setting/Num.pm b/src/CORE.setting/Num.pm
@@ -1,9 +1,9 @@
 my class Num {
     method Num() { self }
     method Int() {
-        pir::repr_box_int__PIP(pir::repr_unbox_num__NP(self), Int);
+        pir::perl6_box_int__PI(pir::repr_unbox_num__NP(self));
     }
     method Str() {
-        pir::repr_box_str__PSP(pir::repr_unbox_num__NP(self), Str);
+        pir::perl6_box_str__PS(pir::repr_unbox_num__NP(self));
     }
 }