Allow user-defined term nano for pre-6.e code (#5111)

Fix a regression detected in #5109
rakudo · Nov 29, 2022 · feb9732 · feb9732
1 parent 83ffeca
commit feb9732
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -3083,7 +3083,9 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     token term:sym<time> { <sym> <.tok> }
 
     token term:sym<nano> {
-        <?{ nqp::getcomp('Raku').language_revision ge 'e' }> <sym> <.tok>
+        <?{ (nqp::getcomp('Raku').language_revision ge 'e')
+            || $*W.is_name(['&term:<nano>']) }>
+        <sym> <.tok>
     }
 
     token term:sym<empty_set> { "∅" <!before <.[ \( \\ ' \- ]> || \h* '=>'> }