develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
jonathan
Date:
January 6, 2009 13:52
Subject:
[svn:parrot] r35081 - branches/rvar/languages/perl6/src/classes
Message ID:
20090106215154.39240CB9F9@x12.develooper.com
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:



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About