$*ALLOW_CODE –> $*ALLOW_INLINE_CODE

$*ALLOW_INLINE_CODE is more descriptive of what it's actually for
rakudo · Feb 19, 2014 · 5accaed · 5accaed
1 parent 39308e5
commit 5accaed
Showing 1 changed file with 11 additions and 11 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -544,7 +544,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     # text not being code
     token pod_textcontent:sym<regular> {
         $<spaces>=[ \h* ]
-         <?{ !$*ALLOW_CODE
+         <?{ !$*ALLOW_INLINE_CODE
              || ($<spaces>.to - $<spaces>.from) <= $*VMARGIN }>
 
         $<text> = [
@@ -554,7 +554,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
 
     token pod_textcontent:sym<code> {
         $<spaces>=[ \h* ]
-        <?{ $*ALLOW_CODE
+        <?{ $*ALLOW_INLINE_CODE
             && ($<spaces>.to - $<spaces>.from) > $*VMARGIN }>
         $<text> = [
             [<!before '=' \w> \N+]+ % [<pod_newline> $<spaces>]
@@ -656,9 +656,9 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         {
             $*VMARGIN    := $<spaces>.to - $<spaces>.from;
         }
-        :my $*ALLOW_CODE := 0;
+        :my $*ALLOW_INLINE_CODE := 0;
         $<type> = [
-            <pod_code_parent> { $*ALLOW_CODE := 1 }
+            <pod_code_parent> { $*ALLOW_INLINE_CODE := 1 }
             || <identifier>
         ]
         :my $*POD_ALLOW_FCODES := nqp::getlexdyn('$*POD_ALLOW_FCODES');
@@ -689,7 +689,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         $<spaces> = [ \h* ]
         '=begin' \h+ 'code'
         :my $*POD_ALLOW_FCODES := 0;
-        :my $*ALLOW_CODE := 0;
+        :my $*ALLOW_INLINE_CODE := 0;
         <pod_configuration($<spaces>)> <pod_newline>+
         [
         || <delimited_code_content(~$<spaces>)>
@@ -727,9 +727,9 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         {
             $*VMARGIN := $<spaces>.to - $<spaces>.from;
         }
-        :my $*ALLOW_CODE := 0;
+        :my $*ALLOW_INLINE_CODE := 0;
         $<type> = [
-            <pod_code_parent> { $*ALLOW_CODE := 1 }
+            <pod_code_parent> { $*ALLOW_INLINE_CODE := 1 }
             || <identifier>
         ]
         :my $*POD_ALLOW_FCODES := nqp::getlexdyn('$*POD_ALLOW_FCODES');
@@ -762,9 +762,9 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         {
             $*VMARGIN := $<spaces>.to - $<spaces>.from;
         }
-        :my $*ALLOW_CODE := 0;
+        :my $*ALLOW_INLINE_CODE := 0;
         $<type> = [
-            <pod_code_parent> { $*ALLOW_CODE := 1 }
+            <pod_code_parent> { $*ALLOW_INLINE_CODE := 1 }
             || <identifier>
         ]
         :my $*POD_ALLOW_FCODES := nqp::getlexdyn('$*POD_ALLOW_FCODES');
@@ -795,7 +795,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         $<spaces> = [ \h* ]
         '=code' <pod_configuration($<spaces>)> <pod_newline>
         :my $*POD_ALLOW_FCODES := 0;
-        :my $*ALLOW_CODE := 0;
+        :my $*ALLOW_INLINE_CODE := 0;
         [ <pod_string> <pod_newline> ]+
     }
 
@@ -861,7 +861,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         :my $*HAS_YOU_ARE_HERE := 0;               # whether {YOU_ARE_HERE} has shown up
         :my $*OFTYPE;
         :my $*VMARGIN    := 0;                     # pod stuff
-        :my $*ALLOW_CODE := 0;                     # pod stuff
+        :my $*ALLOW_INLINE_CODE := 0;                     # pod stuff
         :my $*POD_IN_FORMATTINGCODE := 0;          # pod stuff
         :my $*POD_ALLOW_FCODES := 0b11111111111111111111111111; # allow which fcodes?
         :my $*POD_ANGLE_COUNT := 0;                # pod stuff