From 49e00b4073895e86580a277a1594b767c775a3ba Mon Sep 17 00:00:00 2001
From: git <cspencer@sprocket.org>
Date: Wed, 1 Apr 2009 19:05:11 -0700
Subject: [PATCH] Added "get_number" method to Object.pir to allow
 numification/intification of Perl 6 classes.

Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
---
 src/classes/Object.pir | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/classes/Object.pir b/src/classes/Object.pir
index 6f012f34cf0..229310c4f8a 100644
--- 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)