Simplify "use fatal" implementation.

rakudo · Apr 8, 2015 · 3b45f6a · 3b45f6a
1 parent a7b374d
commit 3b45f6a
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1148,13 +1148,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
 #            }
         } elsif $<module_name> {
             if ~$<module_name> eq 'fatal' {
-                my $*SCOPE := 'my';
-                declare_variable($/, QAST::Stmts.new(), '$', '*', 'FATAL', []);
-                $past := QAST::Op.new(
-                    :op('p6store'), :node($/),
-                    QAST::Var.new( :name('$*FATAL'), :scope('lexical') ),
-                    QAST::Op.new( :op('p6bool'), QAST::IVal.new( :value(1) ) )
-                );
+                $*W.install_lexical_symbol($*W.cur_lexpad(), '$*FATAL', $*W.find_symbol(['True']));
             }
             elsif ~$<module_name> eq 'Devel::Trace' {
                 $STATEMENT_PRINT := 1;