Assume Proc as return value as producing output

Fixes #4079. Yes, it is yet another heuristic, but a pretty simple one.
rakudo · Dec 2, 2020 · 0d6278f · 0d6278f
1 parent 1732054
commit 0d6278f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core.c/REPL.pm6 b/src/core.c/REPL.pm6
@@ -379,7 +379,8 @@ do {
                 # it gets stringified, then we treat it as an error by
                 # falling through after all.
                 elsif $initial_out_position == $*OUT.tell
-                  && $initial_err_position == $*ERR.tell {
+                  && $initial_err_position == $*ERR.tell
+                  && nqp::not_i(nqp::istype($output,Proc)) {
                     if self.repl-print($output) {
                         @before.push: '$ = ' ~ $code.chomp ~ ";\n";
                         $code = '';