Implement postcircumfix:<( )> plus add a (passing) test for it.

perl6 · Oct 30, 2009 · 0ed9993 · 0ed9993
1 parent 217bb06
commit 0ed9993
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 0 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -525,6 +525,10 @@ method postcircumfix:sym<ang>($/) {
                         :vivibase('Hash') );
 }
 
+method postcircumfix:sym<( )>($/) {
+    make $<arglist>.ast;
+}
+
 method value($/) {
     my $past := $<quote>
                 ?? $<quote>.ast

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -339,6 +339,11 @@ token postcircumfix:sym<ang> {
     <O('%methodop')>
 }
 
+token postcircumfix:sym<( )> { 
+    '(' <.ws> <arglist> ')' 
+    <O('%methodop')>
+}
+
 token postfix:sym<.>  { <dotty> <O('%methodop')> }
 
 token prefix:sym<++>  { <sym>  <O('%autoincrement, :pirop<inc>')> }

diff --git a/t/nqp/36-callable.t b/t/nqp/36-callable.t
@@ -0,0 +1,8 @@
+#!./parrot nqp.pbc
+
+# postcircumfix:<( )>
+
+plan(1);
+
+my $sub := { ok(1, 'works'); }
+$sub();