luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[#1116] Missing error message when exception happens in REPL print

Browse source
This commit is contained in:
Michiel Borkent 2021-12-29 16:10:30 +01:00
parent 818f2a9931
commit ddf03c50ae
2 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/babashka/impl/clojure/main.clj
View file

@ -104,10 +104,12 @@ by default when a new command-line REPL is started."} repl-requires
(set! *3 *2)
(set! *2 *1)
(set! *1 value)
(try
(print value)
(catch Throwable e
(throw (ex-info nil {:clojure.error/phase :print-eval-result} e)))))))
(try (print value)
(catch Throwable e
(throw (ex-info (ex-message e)
(assoc (meta input)
:file "<repl>"
:type :sci/error) e)))))))
(catch Throwable e
(caught e)
(set! *e e))))]

4
test/babashka/impl/repl_test.clj
View file

@ -50,7 +50,9 @@
(assert-repl "(read-line)hello" "hello")
(assert-repl "(read-line)\nhello" "hello")
(assert-repl-error "(+ 1 nil)" "NullPointerException")
(assert-repl-error "(/ 1 0) (pst 1)" "Divide by zero\n\tclojure.lang.Numbers"))
(assert-repl-error "(/ 1 0) (pst 1)" "Divide by zero\n\tclojure.lang.Numbers")
(assert-repl-error "(partition (range 5) 3)"
"Don't know how to create ISeq from: java.lang.Long"))
;;;; Scratch