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']
