return without any arguments should not be an error, but rather just …

…return Nil.
rakudo · Feb 9, 2010 · 057d093 · 057d093
1 parent f456c24
commit 057d093
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -335,7 +335,8 @@ method statement_control:sym<use>($/) {
 }
 
 method statement_control:sym<return>($/) {
-    make PAST::Op.new( $<EXPR>.ast, :pasttype('return'), :node($/) );
+    my $retval := $<EXPR> ?? $<EXPR>[0].ast !! PAST::Op.new( :name('&Nil') );
+    make PAST::Op.new( $retval, :pasttype('return'), :node($/) );
 }
 
 method statement_control:sym<given>($/) {

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -366,8 +366,7 @@ token statement_control:sym<loop> {
 }
 
 token statement_control:sym<return> {
-    <sym> :s 
-    [ <EXPR> || <.panic: 'return requires an expression argument'> ]
+    <sym> :s <EXPR>?
 }
 
 token statement_control:sym<use> {