Make repl printing work from current environment.
Although this "unprotects" output in the repl, people
in a repl usually want control, not protection.
(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"}))
