loop { } doesn't need to inspect lexical "True" each iteration

rakudo · Nov 26, 2014 · cd9001e · cd9001e
1 parent e1aa077
commit cd9001e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1052,7 +1052,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
 
     method statement_control:sym<loop>($/) {
         my $block := pblock_immediate($<block>.ast);
-        my $cond := $<e2> ?? $<e2>.ast !! QAST::Var.new(:name<True>, :scope<lexical>);
+        my $cond := $<e2> ?? $<e2>.ast !! QAST::IVal.new( :value(1) );
         my $loop := QAST::Op.new( $cond, :op('while'), :node($/) );
         $loop.push($block);
         if $<e3> {