Author: jonathan
Date: Thu Jan 8 15:12:41 2009
New Revision: 35230
Modified:
branches/rvar2/languages/perl6/src/builtins/assign.pir
Log:
[rakudo] Disable type checking in the case that we have captured a type before
it's been full defined. We'll have to come back and re-visit this later, this
this gets us through another test.
Modified: branches/rvar2/languages/perl6/src/builtins/assign.pir
==============================================================================
--- branches/rvar2/languages/perl6/src/builtins/assign.pir (original)
+++ branches/rvar2/languages/perl6/src/builtins/assign.pir Thu Jan 8
15:12:41 2009
@@ -27,6 +27,9 @@
unless $I0 goto do_assign
getprop type, 'type', cont
if null type goto do_assign
+ # XXX FIXME We should instead translate this to a proto.
+ $I0 = isa type, 'NameSpace'
+ if $I0 goto do_assign
$I0 = type.'ACCEPTS'(source)
if $I0 goto do_assign
'die'("Type mismatch in assignment.")
