1
0
mirror of https://github.com/janet-lang/janet synced 2024-06-16 10:19:55 +00:00

Fix regression in repl.

This commit is contained in:
Calvin Rose 2020-04-28 08:20:07 -05:00
parent 67f1872f4a
commit 70e1f3ac81

View File

@ -2505,6 +2505,7 @@
the repl in."
[&opt chunks onsignal env]
(default env (make-env))
(defn repl-wrap [x] (pp x) x)
(default chunks
(fn [buf p]
(getline
@ -2547,7 +2548,7 @@
(run-context {:env env
: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))
:source "repl"}))