Eliminate redundant loads of linenoise when setting it up

rakudo · Mar 24, 2015 · 3e3b22e · 3e3b22e
1 parent 886d00b
commit 3e3b22e
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -99,10 +99,11 @@ class Perl6::Compiler is HLL::Compiler {
 
     method interactive(*@args, *%adverbs) {
         try {
-            $!linenoise             := self.eval("use Linenoise; &linenoise");
-            $!linenoise_add_history := self.eval("use Linenoise; &linenoiseHistoryAdd");
+            my @symbols := self.eval("use Linenoise; nqp::list(&linenoise, &linenoiseHistoryAdd, &linenoiseSetCompletionCallback)");
 
-            my $linenoise_set_completion_callback := self.eval("use Linenoise; &linenoiseSetCompletionCallback");
+            $!linenoise := @symbols[0];
+            $!linenoise_add_history := @symbols[1];
+            my $linenoise_set_completion_callback := @symbols[2];
 
             $linenoise_set_completion_callback(self.eval('use Completion; use Linenoise; -> Str $line, Linenoise::Completions $c {
                 for complete($line, $line.chars - 1) -> $completion {