From 84974d6c567136dcb51b015f99bd21bdc65e9904 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Fri, 24 Apr 2020 22:29:02 -0500
Subject: [PATCH] Make repl printing work from current environment.

Although this "unprotects" output in the repl, people
in a repl usually want control, not protection.
---
 src/boot/boot.janet | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/boot/boot.janet b/src/boot/boot.janet
index 47f35ca2..6053070b 100644
--- a/src/boot/boot.janet
+++ b/src/boot/boot.janet
@@ -2495,13 +2495,14 @@
 
     (fn [f x]
       (if (= :dead (fiber/status f))
-        (do (pp x) (put e '_ @{:value x}))
+        (put e '_ @{:value x})
         (if (e :debug)
           (enter-debugger f x)
           (do (debug/stacktrace f x) (eflush))))))
 
   (run-context {:env env
                 :chunks chunks
+                :expander (fn [x] [pp x])
                 :on-status (or onsignal (make-onsignal env 1))
                 :source "repl"}))