Implement foo:bar<baz>() sub calls.

perl6 · Jun 20, 2010 · 6c707c6 · 6c707c6
1 parent 1a63388
commit 6c707c6
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -616,7 +616,7 @@ method term:sym<self>($/) {
 
 method term:sym<identifier>($/) {
     my $past := $<args>.ast;
-    $past.name(~$<identifier>);
+    $past.name(~$<deflongname>);
     make $past;
 }
 

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -377,7 +377,7 @@ proto token term { <...> }
 token term:sym<self> { <sym> » }
 
 token term:sym<identifier> {
-    <identifier> <?[(]> <args>
+    <deflongname> <?[(]> <args>
 }
 
 token term:sym<name> {

diff --git a/t/nqp/11-sub.t b/t/nqp/11-sub.t
@@ -2,7 +2,7 @@
 
 # check subs
 
-say('1..13');
+say('1..14');
 
 sub one ( ) {
     say("ok 1 # sub def and call");
@@ -85,3 +85,6 @@ sub &twelve() {
 
 sub Qstuff() { 13 };
 say('ok ', Qstuff());
+
+sub term:sym<self>() { 14 }
+say('ok ', term:sym<self>());