From @bacek

Hello.

<exp_evalbot> rakudo r28164 OUTPUT[1␤␤]
<bacek> rakudo​: say (0+(defined $!)) xor 1;
<exp_evalbot> rakudo r28164 OUTPUT[1␤]
<bacek> rakudo​: say (defined $!) xor 1;
<exp_evalbot> rakudo r28164 OUTPUT[1␤]
<bacek> rakudo​: try{die}; say defined $!;
<exp_evalbot> rakudo r28164 OUTPUT[1␤]
<bacek> rakudo​: try{die}; say defined $!; say (defined $!) xor 1;
<exp_evalbot> rakudo r28164 OUTPUT[1␤␤]
<bacek> rakudo​: try{die}; say (defined $!) xor 1;
<exp_evalbot> rakudo r28164 OUTPUT[␤]

Two last statements produces "Undef" instead of expected result.

--
Bacek.

From @bacek

Hello.

xor still short-circuit but returns Bool​::False

:)

There is patch attached.

--
Bacek.

From @bacek

diff --git a/compilers/pct/src/PAST/Compiler.pir b/compilers/pct/src/PAST/Compiler.pir
index 52ad089..4c91666 100644
--- a/compilers/pct/src/PAST/Compiler.pir
+++ b/compilers/pct/src/PAST/Compiler.pir
@@ -1451,7 +1451,7 @@ a second child is found that evaluates as true.
     ops.'push_pirop'('set', ops, bpost)
     ops.'push_pirop'('goto', endlabel)
     ops.'push'(falselabel)
-    ops.'push_pirop'('new', ops, '"Undef"')
+    ops.'push_pirop'('get_hll_global', ops, '["Bool"]', '"False"')
     ops.'push'(endlabel)
     .return (ops)
 .end

From @pmichaud

On Thu, Jun 12, 2008 at 03​:52​:43AM -0700, Vasily Chekalkin wrote​:

# New Ticket Created by Vasily Chekalkin
# Please include the string​: [perl #​55666]
# in the subject line of all future correspondence about this issue.
# <URL​: http://rt.perl.org/rt3/Ticket/Display.html?id=55666 >

Hello.

xor still short-circuit but returns Bool​::False

:)

There is patch attached.

PCT can't assume that Bool​::False will be available, since that's
Perl 6 specific (and PCT is generic to many languages).

I'll either adjust the C<xor> node to have a 'false value returns'
attribute, or move it entirely into the Perl 6 compiler.

Pm

The RT System itself - Status changed from 'new' to 'open'

From @bacek

Patrick R. Michaud wrote​:

I'll either adjust the C<xor> node to have a 'false value returns'
attribute, or move it entirely into the Perl 6 compiler.

+1 for 'move entirely'. It's very Perl6 specific behavior.

--
Bacek

@pmichaud - Status changed from 'new' to 'open'

From @bacek

Works for me on r32555.

@bacek - Status changed from 'open' to 'resolved'