Improve error output

This commit is contained in:
Justin Ethier 2015-03-24 16:16:03 -04:00
parent 05a29727ad
commit 64a464429a

View file

@ -15,13 +15,12 @@
(with-exception-handler
(lambda (obj)
(display "Error: ")
(write obj)
; TODO:
;(for-each
; (lambda (o)
; (display o)
; (display " "))
; obj)
(for-each
(lambda (o)
(display o)
(display " "))
obj)
(display "\n")
(k #t))
(lambda ()
(repl)))))