mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-01 20:39:55 +00:00
Code Issues 1 Releases Wiki Activity

Make repl printing work from current environment.

Browse Source 
Although this "unprotects" output in the repl, people
in a repl usually want control, not protection.
This commit is contained in:
Calvin Rose 2020-04-24 22:29:02 -05:00
parent da438a93e0
commit 84974d6c56
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/boot/boot.janet
View File

@ -2495,13 +2495,14 @@
(fn [f x] (fn [f x]
(if (= :dead (fiber/status f)) (if (= :dead (fiber/status f))
(do (pp x) (put e '_ @{:value x})) (put e '_ @{:value x})
(if (e :debug) (if (e :debug)
(enter-debugger f x) (enter-debugger f x)
(do (debug/stacktrace f x) (eflush)))))) (do (debug/stacktrace f x) (eflush))))))
(run-context {:env env (run-context {:env env
:chunks chunks :chunks chunks
:expander (fn [x] [pp x])
:on-status (or onsignal (make-onsignal env 1)) :on-status (or onsignal (make-onsignal env 1))
:source "repl"})) :source "repl"}))