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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed Oct 27 20:40:53 2010
New Revision: 49695
URL: https://trac.parrot.org/parrot/changeset/49695

Log:
fix String exists_keyed for positive index

Modified:
   trunk/src/pmc/string.pmc

Modified: trunk/src/pmc/string.pmc
==============================================================================
--- trunk/src/pmc/string.pmc	Wed Oct 27 09:00:34 2010	(r49694)
+++ trunk/src/pmc/string.pmc	Wed Oct 27 20:40:53 2010	(r49695)
@@ -404,7 +404,7 @@
         GET_ATTR_str_val(INTERP, SELF, str_val);
         n = Parrot_str_length(INTERP, str_val);
 
-        return (INTVAL)((k >= 0 && k <= n) || (k < 0 && -k <= n));
+        return (INTVAL)((k >= 0 && k < n) || (k < 0 && -k <= n));
     }
 
 /*