Add some missing compose calls.

Prevents some weird errors when trying to look through CORE.
rakudo · Jan 18, 2013 · ebb415d · ebb415d
1 parent 3a8d48a
commit ebb415d
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -880,12 +880,14 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
             # Tag UNIT with a magical lexical. Also if we're compiling CORE,
             # give it such a tag too.
             if %*COMPILING<%?OPTIONS><setting> eq 'NULL' {
-                $*W.install_lexical_symbol($*UNIT, '!CORE_MARKER',
-                    $*W.pkg_create_mo($/, %*HOW<package>, :name('!CORE_MARKER')));
+                my $marker := $*W.pkg_create_mo($/, %*HOW<package>, :name('!CORE_MARKER'));
+                $marker.HOW.compose($marker);
+                $*W.install_lexical_symbol($*UNIT, '!CORE_MARKER', $marker);
             }
             else {
-                $*W.install_lexical_symbol($*UNIT, '!UNIT_MARKER',
-                    $*W.pkg_create_mo($/, %*HOW<package>, :name('!UNIT_MARKER')));
+                my $marker := $*W.pkg_create_mo($/, %*HOW<package>, :name('!UNIT_MARKER'));
+                $marker.HOW.compose($marker);
+                $*W.install_lexical_symbol($*UNIT, '!UNIT_MARKER', $marker);
             }
         }