[svn:parrot] r35081 - branches/rvar/languages/perl6/src/classes

Author: jonathan
Date: Tue Jan  6 13:51:53 2009
New Revision: 35081

Modified:
   branches/rvar/languages/perl6/src/classes/Signature.pir

Log:
[rakudo] Need to handle non-existent types too. This gets us mostly running S06-multi/type-based.t

Modified: branches/rvar/languages/perl6/src/classes/Signature.pir
==============================================================================
--- branches/rvar/languages/perl6/src/classes/Signature.pir	(original)
+++ branches/rvar/languages/perl6/src/classes/Signature.pir	Tue Jan  6 13:51:53 2009
@@ -63,8 +63,8 @@
   have_mi:
 
     # For now, if no type, set it to Any.
-    $I0 = exists attr['type']
-    if $I0 goto have_type
+    $P0 = attr['type']
+    unless null $P0 goto have_type
     $P0 = get_hll_global 'Any'
     attr['type'] = $P0
   have_type:

• [svn:parrot] r35081 - branches/rvar/languages/perl6/src/classes by jonathan