Add single angle bracket quoting to NQP (non-splitting for the moment).

perl6 · Oct 20, 2009 · b917679 · b917679
1 parent 64c960f
commit b917679
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -17,6 +17,8 @@ method term:sym<value>($/) { make $<value>.ast; }
 
 method circumfix:sym<( )>($/) { make $<EXPR>.ast; }
 
+method circumfix:sym<ang>($/) { make $<quote_EXPR>.ast; }
+
 method postcircumfix:sym<[ ]>($/) {
     make PAST::Var.new( $<EXPR>.ast , :scope('keyed_int') );
 }

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -22,6 +22,7 @@ token prefix:sym<--> { $<sym>=['--'] <O('%autoincrement')> }
 token postfix:sym<++> { $<sym>=['++'] <O('%autoincrement')> }
 
 token circumfix:sym<( )> { '(' <EXPR> ')' }
+token circumfix:sym<ang> { <?[<]>  <quote_EXPR: ':q', ':w'>  }
 
 token postcircumfix:sym<[ ]> { 
     '[' <EXPR> ']'