[svn:parrot] r38515 - branches/rep6object/src/pmc

jonathan at svn.parrot.org jonathan at svn.parrot.org
Wed May 6 22:50:41 UTC 2009


Author: jonathan
Date: Wed May  6 22:50:41 2009
New Revision: 38515
URL: https://trac.parrot.org/parrot/changeset/38515

Log:
[rep6object] Need to claim that we're an abstraction when the proto-object.

Modified:
   branches/rep6object/src/pmc/protoobject.pmc

Modified: branches/rep6object/src/pmc/protoobject.pmc
==============================================================================
--- branches/rep6object/src/pmc/protoobject.pmc	Wed May  6 22:07:39 2009	(r38514)
+++ branches/rep6object/src/pmc/protoobject.pmc	Wed May  6 22:50:41 2009	(r38515)
@@ -321,6 +321,14 @@
             return VTABLE_get_string(interp, longname);
         }
     }
+
+    VTABLE INTVAL does(STRING *check) {
+        Parrot_Protoobject_attributes *po = (Parrot_Protoobject_attributes*)PMC_data(SELF);
+        if (PMC_IS_NULL(po->attrib_store))
+            if (Parrot_str_equal(interp, check, CONST_STRING(interp, "abstraction")))
+                return 1;
+        return SUPER(check);
+    }
 }
 
 /*


More information about the parrot-commits mailing list