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

[chromatic]

Author: chromatic
Date: Thu Jun  7 01:07:12 2007
New Revision: 18857

Modified:
   trunk/src/pmc/key.pmc

Log:
[PMC] Fixed an exception message in Key PMC and tidied and consted the method 
while I was in there.

Modified: trunk/src/pmc/key.pmc
==============================================================================
--- trunk/src/pmc/key.pmc       (original)
+++ trunk/src/pmc/key.pmc       Thu Jun  7 01:07:12 2007
@@ -408,12 +408,13 @@
     }
 
     void thaw(visit_info *info /*NN*/) {
-        IMAGE_IO * const io = info->image_io;
-        /* get flags */
-        INTVAL flags = io->vtable->shift_integer(INTERP, io);
-        flags &= KEY_type_FLAGS;
+        IMAGE_IO * const io    = info->image_io;
+        INTVAL     const flags = io->vtable->shift_integer(INTERP, io)
+                                    & KEY_type_FLAGS;
+
         PObj_get_FLAGS(SELF) |= flags;
         PObj_custom_mark_SET(SELF);
+
         /* get contents */
         switch (flags) {
             case KEY_integer_FLAG:
@@ -427,7 +428,7 @@
                 break;
             default:
                 real_exception(INTERP, NULL, E_KeyError,
-                        "Unsupported key type in Key.freeze");
+                        "Unsupported key type in Key.thaw");
                 break;
         }
     }