[svn:parrot] r18936 - trunk/languages/perl6/src/builtins

Author: chromatic
Date: Mon Jun 11 16:39:24 2007
New Revision: 18936

Modified:
   trunk/languages/perl6/src/builtins/op.pir

Log:
[Perl 6] Return a Perl6Bool PMC from 'prefix:?'; this makes the second ref 
sanity test pass.

Modified: trunk/languages/perl6/src/builtins/op.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/op.pir   (original)
+++ trunk/languages/perl6/src/builtins/op.pir   Mon Jun 11 16:39:24 2007
@@ -88,8 +88,12 @@
 
 .sub 'prefix:?'
     .param pmc a
+
+    .local pmc bool
+    bool = new .Perl6Bool
     $I0 = istrue a
-    .return ($I0)
+    assign bool, $I0
+    .return (bool)
 .end