Author: particle
Date: Thu Jan 8 09:04:32 2009
New Revision: 35209
Modified:
branches/rvar2/languages/perl6/src/builtins/guts.pir
Log:
[rakudo] don't try to register already registered classes; +52 tests
Modified: branches/rvar2/languages/perl6/src/builtins/guts.pir
==============================================================================
--- branches/rvar2/languages/perl6/src/builtins/guts.pir (original)
+++ branches/rvar2/languages/perl6/src/builtins/guts.pir Thu Jan 8
09:04:32 2009
@@ -442,10 +442,12 @@
# Create proto-object with default parent being Any or Grammar.
$S0 = 'Any'
$P0 = getprop 'pkgtype', metaclass
+ if null $P0 goto no_pkgtype
if $P0 != 'grammar' goto register
$S0 = 'Grammar'
register:
p6meta.'register'(metaclass, 'parent'=>$S0)
+ no_pkgtype:
.end
