develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
masak
Date:
December 12, 2008 12:57
Subject:
[svn:parrot] r33839 - trunk/languages/perl6/src/builtins
Message ID:
20081212205750.6D03CCB9AF@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About