Replace string_ord with Parrot_str_indexed

rakudo · Oct 27, 2010 · 3804f4f · 3804f4f
1 parent 2da9645
commit 3804f4f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ops/perl6.ops b/src/ops/perl6.ops
@@ -233,7 +233,7 @@ inline op x_is_uprop(out INT, in STR, in STR, in INT) :base_core {
         goto NEXT();
     }
 
-    ord = string_ord(interp, $3, $4);
+    ord = Parrot_str_indexed(interp, $3, $4);
     cstr = Parrot_str_to_cstring(interp, $2);
 
     /* try block tests */