Author: tene
Date: Wed Dec 10 18:04:14 2008
New Revision: 33785
Modified:
trunk/languages/perl6/src/classes/Failure.pir
Log:
[rakudo]: Create a protoobject for Exception
Modified: trunk/languages/perl6/src/classes/Failure.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Failure.pir (original)
+++ trunk/languages/perl6/src/classes/Failure.pir Wed Dec 10 18:04:14 2008
@@ -7,7 +7,7 @@
p6meta = get_hll_global ['Perl6Object'], '$!P6META'
failureproto = p6meta.'new_class'('Failure', 'parent'=>'Undef Any',
'attr'=>'$!exception')
p6meta.'register'('Undef', 'parent'=>failureproto,
'protoobject'=>failureproto)
- exceptionproto = p6meta.'new_class'('Perl6Exception', 'parent'=>'Any',
'attr'=>'$!exception')
+ exceptionproto = p6meta.'new_class'('Perl6Exception', 'parent'=>'Any',
'attr'=>'$!exception', 'name'=>'Exception')
p6meta.'register'('Exception', 'protoobject'=>exceptionproto)
$P0 = box 1
