throw out unused $¢

those were added to subs and methods in a recent-ish patch, but aren't actually used terribly often.
rakudo · Sep 27, 2015 · 08d9122 · 08d9122
1 parent 7116059
commit 08d9122
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Perl6/Optimizer.nqp b/src/Perl6/Optimizer.nqp
@@ -541,6 +541,12 @@ my class BlockVarOptimizer {
                 nqp::deletekey(%!decls, '$!');
             }
         }
+        if nqp::existskey(%!decls, '$¢') {
+            if !nqp::existskey(%!usages_flat, '$¢') && !nqp::existskey(%!usages_inner, '$¢') {
+                %kill<$¢> := 1;
+                nqp::deletekey(%!decls, '$¢');
+            }
+        }
         if nqp::existskey(%!decls, '$_') {
             my str $decl := %!decls<$_>.decl;
             if $decl eq 'var' || $decl eq 'contvar' {