handle the case where perl6 -Mfoo switches to a slang

In the common case where this is not the case it is just an istype check and the call to LANG.
rakudo · Aug 2, 2014 · e036e23 · e036e23
1 parent 4e9338a
commit e036e23
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -1020,7 +1020,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
 
         <.finishpad>
         <.bom>?
-        <statementlist=.LANG($*MAIN, 'statementlist', 1)>
+        <statementlist=.FOREIGN_LANG($*MAIN, 'statementlist', 1)>
 
         <.install_doc_phaser>