Project: Rakudo

Revision: 30786

Author: coke

Date: 05 Sep 2008 09:23:15

• /trunk/languages/perl6/src/parser/actions.pm

  ......	@@ -272,7 +272,7 @@
  272	272	my $block := $( $<block> );
  273	273	$block.blocktype('immediate');
  274	274	my $cond := $<e2> ?? $( $<e2>[0] ) !! PAST::Val.new( :value( 1 ) );
  275		if $<e3> {
  	275	if $<e3> {
  276	276	$block := PAST::Stmts.new( $block, $( $<e3>[0] ) );
  277	277	}
  278	278	my $loop := PAST::Op.new( $cond, $block, :pasttype('while'), :node($/) );