Added "get_number" method to Object.pir to allow numification/intific…

…ation of Perl 6 classes. Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
rakudo · Apr 20, 2009 · 49e00b4 · 49e00b4
1 parent ae5e785
commit 49e00b4
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/classes/Object.pir b/src/classes/Object.pir
@@ -715,6 +715,11 @@ Helper for doing calls on the metaclass.
     .return ($S0)
 .end
 
+.sub '' :vtable('get_number') :method
+    $N0 = self.'Num'()
+    .return ($N0)
+.end
+
 .sub '' :vtable('increment') :method
     $P0 = self.'succ'()
     'infix:='(self, $P0)