Convert statement_control:make to prefix:make .

perl6 · Nov 14, 2009 · 53fc7ad · 53fc7ad
1 parent e46c70d
commit 53fc7ad
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 5 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -639,6 +639,15 @@ method postfix:sym<-->($/) {
                        :pasttype('inline') );
 }
 
+method prefix:sym<make>($/) {
+    make PAST::Op.new(
+             PAST::Var.new( :name('$/'), :scope('contextual') ),
+             :pasttype('callmethod'),
+             :name('!make'),
+             :node($/)
+    );
+}
+
 
 class NQP::RegexActions is Regex::P6Regex::Actions {
 

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -169,11 +169,11 @@ token statement_control:sym<for> {
 #    <sym> :s
 #    [ <EXPR> || <.panic: 'return requires an expression argument'> ]
 #}
-
-token statement_control:sym<make> {
-    <sym> :s
-    [ <EXPR> || <.panic: 'make requires an expression argument'> ]
-}
+#
+#token statement_control:sym<make> {
+#    <sym> :s
+#    [ <EXPR> || <.panic: 'make requires an expression argument'> ]
+#}
 
 proto token statement_prefix { <...> }
 token statement_prefix:sym<INIT> { <sym> <blorst> }
@@ -481,6 +481,7 @@ token infix:sym<::=>  { <sym>  <O('%assignment, :pasttype<bind>')> }
 token infix:sym<,>    { <sym>  <O('%comma, :pasttype<list>')> }
 
 token prefix:sym<return> { <sym> \s <O('%list_prefix, :pasttype<return>')> }
+token prefix:sym<make>   { <sym> \s <O('%list_prefix')> }
 
 
 grammar NQP::Regex is Regex::P6Regex::Grammar {