[svn:parrot] r30125 - trunk/src/ops

[tene]

Author: tene
Date: Fri Aug  8 00:21:05 2008
New Revision: 30125

Modified:
   trunk/src/ops/core.ops

Log:
More fixes for my exceptions commit.  chromatic++


Modified: trunk/src/ops/core.ops
==============================================================================
--- trunk/src/ops/core.ops      (original)
+++ trunk/src/ops/core.ops      Fri Aug  8 00:21:05 2008
@@ -817,7 +817,7 @@
 inline op throw(invar PMC) :flow {
     opcode_t * const ret  = expr NEXT();
     Parrot_cont * resume = new_ret_continuation_pmc(interp, ret);
-    VTABLE_set_attr_str(interp, $1, string_from_literal(interp, "retcont"), 
resume);
+    VTABLE_set_attr_str(interp, $1, const_string(interp, "retcont"), resume);
     opcode_t * const dest = Parrot_ex_throw_from_op(interp, $1, resume);
     goto ADDRESS(dest);
 }