tests incorrectly assume loop returns values

Loops at statementlist level should always sink themselves.  The 'loop'
statement was doing this incorrectly, so we didn't notice these tests
were wrong.

Author: TimToady

S04-statements/while.t

@@ -160,8 +160,8 @@ lives-ok { EVAL 'while 0 { my $_ }' }, 'Can declare $_ in a loop body';
 
 # RT #127069
 {
-    is { loop (my int $i = 0; $i < 10; $i++) { +$i } }(), '0 1 2 3 4 5 6 7 8 9', "can return ints from loop at end of immediate block";
-    is { loop (my Int $i = 0; $i < 10; $i++) { +$i } }(), '0 1 2 3 4 5 6 7 8 9', "can return Ints from loop at end of immediate block";
+    is { (loop (my int $i = 0; $i < 10; $i++) { +$i }) }(), '0 1 2 3 4 5 6 7 8 9', "can return ints from loop at end of immediate block";
+    is { (loop (my Int $i = 0; $i < 10; $i++) { +$i }) }(), '0 1 2 3 4 5 6 7 8 9', "can return Ints from loop at end of immediate block";
 }
 
 # vim: ft=perl6