[svn:parrot] r33839 - trunk/languages/perl6/src/builtins

Author: masak
Date: Fri Dec 12 12:57:49 2008
New Revision: 33839

Modified:
   trunk/languages/perl6/src/builtins/any-list.pir

Log:
[rakudo] made .end return highest index, not last element

Modified: trunk/languages/perl6/src/builtins/any-list.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/any-list.pir	(original)
+++ trunk/languages/perl6/src/builtins/any-list.pir	Fri Dec 12 12:57:49 2008
@@ -53,8 +53,7 @@
     list = self.'list'()
     $I0 = list.'elems'()
     dec $I0
-    $P0 = list[$I0]
-    .return ($P0)
+    .return ($I0)
 .end
 
 =item join

• [svn:parrot] r33839 - trunk/languages/perl6/src/builtins by masak