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

[svn:parrot] r34269 - trunk/languages/pipp/src/pct

From:
bernhard
Date:
December 23, 2008 01:53
Subject:
[svn:parrot] r34269 - trunk/languages/pipp/src/pct
Message ID:
20081223095309.9DA35CBA12@x12.develooper.com
Author: bernhard
Date: Tue Dec 23 01:53:08 2008
New Revision: 34269

Modified:
   trunk/languages/pipp/src/pct/actions.pm

Log:
[Pipp] Use the nifty hll attribute on PAST::Block.
Unbreak 'require_once'. pmichaud++


Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm	(original)
+++ trunk/languages/pipp/src/pct/actions.pm	Tue Dec 23 01:53:08 2008
@@ -20,12 +20,15 @@
 class Pipp::Grammar::Actions;
 
 method TOP($/) {
-    my $past := PAST::Block.new( :node($/) );
+    my $past := PAST::Block.new(
+                    :node($/),
+                    :hll('Pipp')
+                );
     for $<sea_or_code> {
         $past.push( $($_) );
     }
 
-    make PAST::Stmts.new( $past, PAST::Op.new( :inline( "_block11()\n.end\n.HLL 'Pipp'\n.sub 'anon'" ) ));
+    make $past;
 }
 
 method sea_or_code($/,$key) {



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