Author: pmichaud
Date: Mon Dec 8 20:11:30 2008
New Revision: 33692
Modified:
branches/assign/languages/perl6/src/classes/Match.pir
Log:
[rakudo]: Match does Positional.
Modified: branches/assign/languages/perl6/src/classes/Match.pir
==============================================================================
--- branches/assign/languages/perl6/src/classes/Match.pir (original)
+++ branches/assign/languages/perl6/src/classes/Match.pir Mon Dec 8
20:11:30 2008
@@ -31,6 +31,11 @@
# Also install Match proto in our HLL namespace.
set_hll_global 'Match', $P0
+
+ .local pmc p6meta
+ p6meta = get_hll_global ['Perl6Object'], '$!P6META'
+ $P1 = get_hll_global 'Positional'
+ p6meta.'add_role'($P1, 'to'=>$P0)
.end
#
