our T sub foo() { ... } form of setting the return value now akshuall…

…y sets it.
rakudo · Apr 19, 2009 · cc6b141 · cc6b141
1 parent 80f0d32
commit cc6b141
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -2034,6 +2034,15 @@ method scoped($/) {
                 $past.viviself( $( $<fulltypename>[0] ).clone() );
             }
         }
+        elsif $past.isa(PAST::Block) && $<fulltypename> {
+            $past.loadinit().push(PAST::Op.new(
+                :pasttype('call'),
+                :name('!sub_trait_verb'),
+                PAST::Var.new( :name('block'), :scope('register') ),
+                'trait_verb:returns',
+                $( $<fulltypename>[0] )
+            ));
+        }
     }
     make $past;
 }