[svn:languages] r78 - forth/trunk

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri Jul 24 18:47:40 2009
New Revision: 78
URL: https://trac.parrot.org/languages/changeset/78

Log:
[forth] use the opcode 'iter' instead of a instantiation of 'Iterator'

Modified:
   forth/trunk/test.pir

Modified: forth/trunk/test.pir
==============================================================================
--- forth/trunk/test.pir	Fri Jul 24 18:46:50 2009	(r77)
+++ forth/trunk/test.pir	Fri Jul 24 18:47:40 2009	(r78)
@@ -16,11 +16,11 @@
 
     load_bytecode 'languages/forth/forth.pir'
 
-    .local pmc iter
-    iter = new 'Iterator', args
+    .local pmc it
+    it = iter args
 next_file:
-    unless iter goto done
-    $S0 = shift iter
+    unless it goto done
+    $S0 = shift it
     test($S0)
     goto next_file
 done: