Merge pull request #4373 from vrurg/6e-pseudostash-inherits-6c

Make 6.e PseudoStash a child of 6.c PseudoStash
rakudo · Jun 17, 2021 · f0b7ee7 · f0b7ee7
2 parents 4f61a10 + b03afef
commit f0b7ee7
Show file tree

Hide file tree

Showing 2 changed files with 100 additions and 88 deletions.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -5142,6 +5142,12 @@ class Perl6::World is HLL::World {
                 QAST::SVal.new( :value('GLOBAL') ) );
         }
 
+        if $*COMPILING_CORE_SETTING && +@name > 1 && @name[0] eq 'CORE' {
+            # PseudoStash is likely to be unavailable while CORE is compiled. Here we provide very basic support for
+            # CORE:: namespace for the core code itself.
+            return QAST::WVal.new( :value(self.find_symbol_in_setting(@name)) )
+        }
+
         # Handle things starting with pseudo-package.
         if self.is_pseudo_package(@name[0]) && @name[0] ne 'GLOBAL' && @name[0] ne 'PROCESS' {
             my $lookup;