(when (not (memv 'empty-input (error-object-irritants ex)))
(display "[error] ")
(display (error-object-message ex))
- (newline))))
+ (newline)))
+ ((and (pair? ex) (eq? (car ex) 'user-error))
+ (display "[error] ")
+ (display (pr-str (cdr ex) #t))
+ (newline)))
(display (rep input))
(newline))
(loop))))