mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

Address #109 

Make repl work when default chunks not supplied.
This commit is contained in:
Calvin Rose 2019-05-22 23:56:59 -04:00
parent 98c46fcfb1
commit b5e6c0b8fc
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/boot/boot.janet
View File

@ -1472,7 +1472,7 @@
:compile-only compile-only
:source where} opts)
(default env (fiber/getenv (fiber/current)))
(default chunks getline)
(default chunks (fn [buf p] (getline "" buf)))
(default compile-only false)
(default onstatus debug/stacktrace)
(default on-compile-error bad-compile)
@ -1754,6 +1754,11 @@
[&opt chunks onsignal env]
(def level (+ (dyn :debug-level 0) 1))
(default env (make-env))
(default chunks (fn [buf p] (getline (string "repl:"
(parser/where p)
":"
(parser/state p) "> ")
buf)))
(default onsignal (fn [f x]
(case (fiber/status f)
:dead (do