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

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

From:
pmichaud
Date:
November 13, 2008 11:28
Subject:
[svn:parrot] r32624 - trunk/languages/pheme/lib
Message ID:
20081113192828.3E272CB9AF@x12.develooper.com
Author: pmichaud
Date: Thu Nov 13 11:28:27 2008
New Revision: 32624

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

Log:
[pheme]:  Change deprecated 'get_array' to 'list' (RT #54000).


Modified: trunk/languages/pheme/lib/pge2past.tg
==============================================================================
--- trunk/languages/pheme/lib/pge2past.tg	(original)
+++ trunk/languages/pheme/lib/pge2past.tg	Thu Nov 13 11:28:27 2008
@@ -223,7 +223,7 @@
 
 transform quote (PAST;Op) :language( 'PIR' ) {
     .local pmc children
-    children = node.'get_array'()
+    children = node.'list'()
 
     # first kid is quote op; remove
     .local pmc quote_op
@@ -270,7 +270,7 @@
     result.'returns'( 'Undef' )
 
     .local pmc children
-    children = node.'get_array'()
+    children = node.'list'()
     unshift children, result
 
     .return( node )
@@ -393,7 +393,7 @@
 
 transform rewrite_var_name (PAST;Op) :language('PIR') {
     .local pmc children
-    children = node.'get_array'()
+    children = node.'list'()
 
     .local int elements
     elements = children



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