[svn:parrot] r39064 - branches/tt452_reduce_mmd/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Fri May 22 22:43:17 2009
New Revision: 39064
URL: https://trac.parrot.org/parrot/changeset/39064

Log:
[pmc] Simplify Undef.is_equal

Modified:
   branches/tt452_reduce_mmd/src/pmc/undef.pmc

Modified: branches/tt452_reduce_mmd/src/pmc/undef.pmc
==============================================================================
--- branches/tt452_reduce_mmd/src/pmc/undef.pmc	Fri May 22 22:42:42 2009	(r39063)
+++ branches/tt452_reduce_mmd/src/pmc/undef.pmc	Fri May 22 22:43:17 2009	(r39064)
@@ -237,12 +237,8 @@
 
 */
 
-    MULTI INTVAL is_equal(Undef value) {
-        return 1;
-    }
-
-    MULTI INTVAL is_equal(DEFAULT value) {
-        return 0;
+    VTABLE INTVAL is_equal(PMC *value) {
+        return VTABLE_type(INTERP, value) == enum_class_Undef;
     }
 }