Fix compilation of inheritance. Seems to work just fine for class_6m-…

…s now.
perl6 · Jan 9, 2011 · 25b6884 · 25b6884
1 parent 2ac9555
commit 25b6884
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -412,7 +412,7 @@ sub package($/) {
     # Add call to add_parent if we have one.
     # XXX Doesn't handle lexical classes yet.
     if $<package_def><parent> {
-        my @ns := pir::clone__PP($<package_def><parent><identifier>);
+        my @ns := pir::clone__PP($<package_def><parent>[0]<identifier>);
         my $name := ~@ns.pop;
         $*PACKAGE-SETUP.push(PAST::Op.new(
             :pasttype('callmethod'), :name('add_parent'),