[svn:parrot] r38242 - trunk/runtime/parrot/library

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Tue Apr 21 08:49:42 2009
New Revision: 38242
URL: https://trac.parrot.org/parrot/changeset/38242

Log:
[p6object]:  Adjust .ACCEPTS on protoobjects to handle junctions again.

Modified:
   trunk/runtime/parrot/library/P6object.pir

Modified: trunk/runtime/parrot/library/P6object.pir
==============================================================================
--- trunk/runtime/parrot/library/P6object.pir	Tue Apr 21 05:49:00 2009	(r38241)
+++ trunk/runtime/parrot/library/P6object.pir	Tue Apr 21 08:49:42 2009	(r38242)
@@ -674,12 +674,16 @@
 
     $P0 = self.'HOW'()
     parrotclass = $P0.'get_parrotclass'(self)
+
     $S0 = parrotclass
     if $S0 == 'Perl6Object' goto accept_anyway
-    if $S0 == 'Junction' goto normal_check
+
+    $I0 = isa topic, 'Junction'
+    if $I0 goto normal_check
+
     if $S0 == 'Any' goto accept_anyway
-  normal_check:
 
+  normal_check:
     $I0 = can topic, 'HOW'
     unless $I0 goto end
     topichow = topic.'HOW'()