mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-01-13 17:10:27 +00:00
Code Issues 1 Releases Wiki Activity

Fix regression in repl.

Browse Source
This commit is contained in:
Calvin Rose 2020-04-28 08:20:07 -05:00
parent 67f1872f4a
commit 70e1f3ac81
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

@ -2505,6 +2505,7 @@
the repl in." the repl in."
[&opt chunks onsignal env] [&opt chunks onsignal env]
(default env (make-env)) (default env (make-env))
(defn repl-wrap [x] (pp x) x)
(default chunks (default chunks
(fn [buf p] (fn [buf p]
(getline (getline
@ -2547,7 +2548,7 @@
(run-context {:env env (run-context {:env env
:chunks chunks :chunks chunks
:expander (fn [x] (with-syms [g] (apply let [g x] [pp g] [g]))) :expander (fn [x] [repl-wrap x])
:on-status (or onsignal (make-onsignal env 1)) :on-status (or onsignal (make-onsignal env 1))
:source "repl"})) :source "repl"}))