Enable use of $¢ in nqp

I'm personally still amazed it was this simple to do :) .
Raku · Aug 22, 2015 · cb4f525 · cb4f525
1 parent ebfd308
commit cb4f525
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/NQP/Actions.nqp b/src/NQP/Actions.nqp
@@ -571,7 +571,7 @@ class NQP::Actions is HLL::Actions {
             else {
                 my $name := ~@name.pop;
                 my int $is_lex := 0;
-                if $*IN_DECL eq 'variable' || $name eq '$_' || $name eq '$/'
+                if $*IN_DECL eq 'variable' || $name eq '$_' || $name eq '$/' || $name eq '$¢'
                 || $name eq '$!' || $<twigil> eq '?' || ($is_lex := $*W.is_lexical($name)) {
                     $ast := QAST::Var.new( :name($name),
                         :scope($name eq '$?CLASS' ?? 'typevar' !! 'lexical') );

diff --git a/src/NQP/Grammar.nqp b/src/NQP/Grammar.nqp
@@ -338,7 +338,7 @@ grammar NQP::Grammar is HLL::Grammar {
         | <sigil> <twigil>? <desigilname=.name>
         | <sigil> <?[<]> <postcircumfix>
         | <sigil> '(' ~ ')' <semilist>
-        | $<sigil>=['$'] $<desigilname>=[<[/_!]>]
+        | $<sigil>=['$'] $<desigilname>=[<[/_!¢]>]
     }
 
     token sigil { <[$@%&]> }