[svn:parrot] r21200 - branches/pdd15oo/src/ops

Author: allison
Date: Tue Sep 11 19:36:12 2007
New Revision: 21200

Modified:
   branches/pdd15oo/src/ops/object.ops

Log:
All classes are PDD 15 classes.


Modified: branches/pdd15oo/src/ops/object.ops
==============================================================================
--- branches/pdd15oo/src/ops/object.ops (original)
+++ branches/pdd15oo/src/ops/object.ops Tue Sep 11 19:36:12 2007
@@ -217,7 +217,7 @@
 
 =item B<newclass>(out PMC, in STR)
 
-Creates a new Parrot-style class, named $2, and puts the new PMC for it
+Create a new Parrot-style class, named $2, and puts the new PMC for it
 into $1.
 
 =item B<newclass>(out PMC, in PMC)
@@ -229,12 +229,12 @@
 inline op newclass(out PMC, in STR) :object_classes {
   PMC *name = pmc_new(interp, enum_class_String);
   VTABLE_set_string_native(interp, name, $2);
-  $1 = pmc_new_init(interp, enum_class_ParrotClass, name);
+  $1 = pmc_new_init(interp, enum_class_Class, name);
   goto NEXT();
 }
 
 inline op newclass(out PMC, in PMC) :object_classes {
-    $1 = pmc_new_init(interp, enum_class_ParrotClass, $2);
+    $1 = pmc_new_init(interp, enum_class_Class, $2);
     goto NEXT();
 }