Only reset "before" code in the REPL when we can

Fixes #4088
rakudo · Dec 5, 2020 · 6f7718c · 6f7718c
1 parent 6c7044e
commit 6f7718c
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/core.c/REPL.pm6 b/src/core.c/REPL.pm6
@@ -318,7 +318,6 @@ do {
             my @before;
             my $code;
             sub reset(--> Nil) {
-                @before = ();
                 $code   = '';
                 $prompt = self.interactive_prompt;
             }
@@ -388,6 +387,13 @@ do {
                     }
                 }
 
+                # No errors seen, and explicit output done, so assume that
+                # the "before" code is now solidified so we don't need to
+                # recompile that again and again.
+                else {
+                    @before = ();
+                }
+
                 # Start with clean slate otherwise
                 if $*MAIN_CTX {
                     $!save_ctx := $*MAIN_CTX;