# New Ticket Created by "Carl Mäsak" # Please include the string: [perl #116649] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=116649 >
<TimToady> nr: sub r2cf(Rat $x is copy) { gather $x [R/]= 1 while ($x -= take $x.floor) > 0 }; say r2cf(1.4142136) <p6eval> rakudo 935c90: OUTPUT«===SORRY!===Preceding context expects a term, but found infix = insteadat /tmp/WXbDH1h_R_:1------> b r2cf(Rat $x is copy) { gather $x [R/]=⏏ 1 while ($x -= take $x.floor) > 0 }; sa» <p6eval> ..niecza v24-18-gaf64300: OUTPUT«1 2 2 2 2 2 2 2 2 2 6 1 2 4 1 1 2» <TimToady> dunno if you have that one yet <masak> don't think so. * masak submits TimToady's rakudobug <masak> r: my $x; $x [R/]= 1 <p6eval> rakudo 935c90: OUTPUT«===SORRY!===Preceding context expects a term, but found infix = insteadat /tmp/95XYnmRMtC:1------> my $x; $x [R/]=⏏ 1»