[svn:parrot] r38452 - trunk/src/pmc

[cotto at svn.parrot.org]

Author: cotto
Date: Sun May  3 06:37:40 2009
New Revision: 38452
URL: https://trac.parrot.org/parrot/changeset/38452

Log:
[pmc] use Parrot_str_equal to improve readability

Modified:
   trunk/src/pmc/default.pmc

Modified: trunk/src/pmc/default.pmc
==============================================================================
--- trunk/src/pmc/default.pmc	Sun May  3 06:22:35 2009	(r38451)
+++ trunk/src/pmc/default.pmc	Sun May  3 06:37:40 2009	(r38452)
@@ -97,13 +97,13 @@
     if (!ro)
         ro = string_make(interp, "_ro", 3, "ascii",
             PObj_constant_FLAG|PObj_external_FLAG);
-    if (!Parrot_str_compare(interp, key, ro)) {
+    if (Parrot_str_equal(interp, key, ro)) {
 #else
 
     /*
-     * s2 in Parrot_str_compare is freed here
+     * s2 in Parrot_str_equal is freed here
      */
-    if (!Parrot_str_compare(interp, key, CONST_STRING(interp, "_ro"))) {
+    if (Parrot_str_equal(interp, key, CONST_STRING(interp, "_ro"))) {
 #endif
         /* pmc should set/clear readonly */
         const INTVAL on = VTABLE_get_bool(interp, value);
@@ -182,7 +182,7 @@
 static PMC*
 check_get_std_props(PARROT_INTERP, PMC *self, STRING *key) {
     if ((self->vtable->flags & (VTABLE_IS_CONST_FLAG | VTABLE_IS_READONLY_FLAG))
-        &&!Parrot_str_compare(interp, key, CONST_STRING(interp, "_ro"))) {
+       && Parrot_str_equal(interp, key, CONST_STRING(interp, "_ro"))) {
         PMC * const ret_val  = pmc_new(interp, enum_class_Integer);
         VTABLE_set_integer_native(interp, ret_val, 1);
         return ret_val;