[svn:mod_parrot] r657 - in mod_parrot/branches/configure-jeff: languages/perl6/lib/Apache languages/perl6/lib/ModParrot lib/ModParrot/HLL

Author: jhorwitz
Date: Sat Aug 29 11:10:57 2009
New Revision: 657

Modified:
   mod_parrot/branches/configure-jeff/languages/perl6/lib/Apache/Const.pm
   mod_parrot/branches/configure-jeff/languages/perl6/lib/ModParrot/Const.pm
   mod_parrot/branches/configure-jeff/lib/ModParrot/HLL/lolcode.pir

Log:
use iter instead of creating iterators directly


Modified: mod_parrot/branches/configure-jeff/languages/perl6/lib/Apache/Const.pm
==============================================================================
--- mod_parrot/branches/configure-jeff/languages/perl6/lib/Apache/Const.pm	(original)
+++ mod_parrot/branches/configure-jeff/languages/perl6/lib/Apache/Const.pm	Sat Aug 29 11:10:57 2009
@@ -10,7 +10,7 @@
     if null $P0 goto done
 
     $P0 = get_root_global ['ModParrot'; 'Apache'; 'Constants'], 'table'
-    $P1 = new 'Iterator', $P0
+    $P1 = iter $P0
     $P1 = .ITERATE_FROM_START
   iter_start:
     unless $P1 goto iter_end

Modified: mod_parrot/branches/configure-jeff/languages/perl6/lib/ModParrot/Const.pm
==============================================================================
--- mod_parrot/branches/configure-jeff/languages/perl6/lib/ModParrot/Const.pm	(original)
+++ mod_parrot/branches/configure-jeff/languages/perl6/lib/ModParrot/Const.pm	Sat Aug 29 11:10:57 2009
@@ -10,7 +10,7 @@
     if null $P0 goto done
 
     $P0 = get_root_global ['ModParrot'; 'Constants'], 'table'
-    $P1 = new 'Iterator', $P0
+    $P1 = iter $P0
     $P1 = .ITERATE_FROM_START
   iter_start:
     unless $P1 goto iter_end

Modified: mod_parrot/branches/configure-jeff/lib/ModParrot/HLL/lolcode.pir
==============================================================================
--- mod_parrot/branches/configure-jeff/lib/ModParrot/HLL/lolcode.pir	(original)
+++ mod_parrot/branches/configure-jeff/lib/ModParrot/HLL/lolcode.pir	Sat Aug 29 11:10:57 2009
@@ -117,7 +117,7 @@
     query_parse = get_hll_global [ 'CGI'; 'QueryHash' ], 'parse'
     query = new 'Hash'
     query = query_parse($S0)
-    q_iter = new 'Iterator', query
+    q_iter = iter query
   query_loop:
     key = shift q_iter
     unless key goto query_loop_end