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

[svn:parrot] r33586 - trunk/languages/pheme/lib

From:
pmichaud
Date:
December 6, 2008 20:59
Subject:
[svn:parrot] r33586 - trunk/languages/pheme/lib
Message ID:
20081207045927.04004CB9AF@x12.develooper.com
Author: pmichaud
Date: Sat Dec  6 20:59:26 2008
New Revision: 33586

Modified:
   trunk/languages/pheme/lib/pge2past.tg

Log:
[pheme]:  Adjust pge2past to properly iterate over parse nodes.


Modified: trunk/languages/pheme/lib/pge2past.tg
==============================================================================
--- trunk/languages/pheme/lib/pge2past.tg	(original)
+++ trunk/languages/pheme/lib/pge2past.tg	Sat Dec  6 20:59:26 2008
@@ -27,7 +27,8 @@
 
 transform past (pheme_list) :language('PIR') {
     .local pmc iter
-    iter = new 'Iterator', node
+    $P0 = node.'hash'()
+    iter = new 'Iterator', $P0
 
     .local string key_name
     key_name = shift iter
@@ -92,7 +93,8 @@
 
 transform past (list_item) :language('PIR') {
     .local pmc iter
-    iter = new 'Iterator', node
+    $P0 = node.'hash'()
+    iter = new 'Iterator', $P0
 
     .local string key_name
     key_name = shift iter
@@ -174,7 +176,8 @@
 
 transform make_cons (list) :language('PIR') {
     .local pmc iter
-    iter = new 'Iterator', node
+    $P0 = node.'hash'()
+    iter = new 'Iterator', $P0
 
     .local pmc cons
     cons = new ['PAST';'Op']



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