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) {
