Author: jonathan
Date: Wed Aug 20 12:57:43 2008
New Revision: 30392
Modified:
branches/lazyrakudo/languages/perl6/src/classes/List.pir
Log:
[rakudo] Confused my unshift with my shift somehow; resolving this fixes for.t.
Modified: branches/lazyrakudo/languages/perl6/src/classes/List.pir
==============================================================================
--- branches/lazyrakudo/languages/perl6/src/classes/List.pir (original)
+++ branches/lazyrakudo/languages/perl6/src/classes/List.pir Wed Aug 20
12:57:43 2008
@@ -179,7 +179,7 @@
# Not an iterator, so just pull this value off the head of the unevaluated
# part and hand it back.
- value = unshift unevaluated
+ value = shift unevaluated
.return (value)
# We have an iterator. Make sure it's not exhausted, and if not get a value
@@ -189,7 +189,7 @@
value = shift try
.return (value)
empty_iter:
- $P0 = unshift unevaluated
+ $P0 = shift unevaluated
goto try_loop
# If there's no elements available, we fail.
