Refactor Grammar and Match inheritance (RT #62704).

rakudo · Mar 1, 2009 · 0bbdb57 · 0bbdb57
1 parent cd8ea0c
commit 0bbdb57
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/classes/Grammar.pir b/src/classes/Grammar.pir
@@ -14,7 +14,7 @@ This file implements the Grammar class.
     load_bytecode "PGE.pbc"
     .local pmc p6meta
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
-    p6meta.'new_class'('Grammar', 'parent'=>'PGE::Grammar')
+    p6meta.'new_class'('Grammar', 'parent'=>'Match')
 .end
 
 =head2 Methods

diff --git a/src/classes/Match.pir b/src/classes/Match.pir
@@ -11,7 +11,7 @@ Match - Perl 6 match objects
 .sub '' :anon :load :init
     .local pmc p6meta, matchproto
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
-    matchproto = p6meta.'new_class'('Match', 'parent'=>'PGE::Match Any')
+    matchproto = p6meta.'new_class'('Match', 'parent'=>'PGE::Grammar Any')
     $P0 = get_hll_global 'Positional'
     $P0 = $P0.'!select'()
     p6meta.'add_role'($P0, 'to'=>matchproto)