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)
