[svn:parrot] r27356 - trunk/languages/perl6/src/classes

Author: jonathan
Date: Tue May  6 12:28:49 2008
New Revision: 27356

Modified:
   trunk/languages/perl6/src/classes/Object.pir

Log:
[rakudo] Bug fix to protoobject ACCEPTS change from earlier.

Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir	(original)
+++ trunk/languages/perl6/src/classes/Object.pir	Tue May  6 12:28:49 2008
@@ -607,7 +607,7 @@
   find_next_loop_end:
 
     $I0 = 0
-    unless found goto do_return
+    if null found goto do_return
     $I0 = found(self, topic)
   do_return:
     .return 'prefix:?'($I0)

• [svn:parrot] r27356 - trunk/languages/perl6/src/classes by jonathan