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

[jackhill/mal.git] / io / step5_tco.io

diff --git a/io/step5_tco.io b/io/step5_tco.io
index 944bf6d..db0867f 100644 (file)
--- a/io/step5_tco.io
+++ b/io/step5_tco.io
@@ -85,6 +85,9 @@ loop(
     if(line isEmpty, continue)
     e := try(REP(line) println)
     e catch(Exception,
-        ("Error: " .. (e error)) println
+        if(e type == "MalException",
+            ("Error: " .. ((e val) malPrint(true))) println,
+            ("Error: " .. (e error)) println
+        )
     )
 )