Test uncaught throw, catchless try* . Fix 46 impls.

[jackhill/mal.git] / scheme / step8_macros.scm

diff --git a/scheme/step8_macros.scm b/scheme/step8_macros.scm
index 8df319a..c9f177e 100644 (file)
--- a/scheme/step8_macros.scm
+++ b/scheme/step8_macros.scm
@@ -185,7 +185,11 @@
               (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))))