[p6grammar]: Add ability to declare a parent grammar.

perl6 · Oct 15, 2009 · 8cd492a · 8cd492a
1 parent fb80e2d
commit 8cd492a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Regex/P6Grammar/Actions.pm b/src/Regex/P6Grammar/Actions.pm
@@ -12,12 +12,13 @@ method TOP($/) {
 method grammar_stmt($/) {
     my @ns := Regex::P6Grammar::Compiler.parse_name( ~$<name> );
     my $past := PAST::Block.new( :namespace(@ns) );
+    my $parent := $<base> ?? ~$<base>[0] !! 'Regex::Cursor';
     my $init := 
         PAST::Op.new(
             PAST::Var.new( :name('P6metaclass'), :scope('package'),
                            :namespace('') ),
             ~$<name>,
-            PAST::Val.new( :value('Regex::Cursor'), :named('parent') ),
+            PAST::Val.new( :value($parent), :named('parent') ),
             :pasttype('callmethod'), :name('new_class')
         );
     $past.loadinit($init);