Add index()

sorear · May 27, 2011 · 6c42d59 · 6c42d59
1 parent fbf986f
commit 6c42d59
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -367,6 +367,7 @@ sub infix:<=>(\$a, \$b) { Q:CgOp { (prog [assign {$a} {$b}] {$a}) } }
 
 sub chars($str) { chars($str) }
 sub substr($str, $start, $len = chars($str) - $start) { substr($str, $start, $len) }
+sub index($haystack,$needle) { $haystack.index($needle) }
 
 sub item(Mu $x) { $x }