move some code in HLL::Compiler.compile from PIR to NQP

Raku · Feb 21, 2011 · 9a7d4a9 · 9a7d4a9
1 parent 549d447
commit 9a7d4a9
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
@@ -451,17 +451,14 @@ class HLL::Compiler {
     }
 
     method compile($source, *%adverbs) {
+        my %*COMPILING<%?OPTIONS> := %adverbs;
+
         Q:PIR {
             .local pmc source, adverbs, self
             source = find_lex '$source'
             adverbs = find_lex '%adverbs'
             self = find_lex 'self'
 
-            .local pmc compiling, options
-            compiling = new ['Hash']
-            .lex '%*COMPILING', compiling
-            compiling['%?OPTIONS'] = adverbs
-
             .local string target
             target = adverbs['target']
             target = downcase target