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:
