Add ($value if $cond) semantics for if/unless modifiers.

Fix punning of 'list' method and 'list' operator in Range.
rakudo · Apr 4, 2009 · a06d768 · a06d768
1 parent 0bb68ee
commit a06d768
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/classes/Range.pir b/src/classes/Range.pir
@@ -29,7 +29,7 @@ just return a clone of the Range.
 
 =cut
 
-.sub 'list' :method
+.sub '' :method('list')
     .local pmc range_it, result
     range_it = self.'iterator'()
     result = new 'List'

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -166,6 +166,7 @@ method statement($/, $key) {
             my $body := $past;
             $past := $( $<statement_mod_cond> );
             $past.push( $body );
+            $past.push( PAST::Op.new( :name('list') ) );
             $sml := $<statement_mod_loop>[0];
         }
         if $key eq 'mod_loop' { $sml := $<statement_mod_loop>; }