From 1f31e550385cfa64a36167a5f3f9ec780baaad86 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Wed, 14 May 2025 17:16:25 +0200
Subject: Proper ppc.tkPos

---
 exn_handler.fun | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'exn_handler.fun')

diff --git a/exn_handler.fun b/exn_handler.fun
index b95e847..078225f 100644
--- a/exn_handler.fun
+++ b/exn_handler.fun
@@ -8,7 +8,7 @@ struct
   let
     val hist = MLton.Exn.history e
   in
-    eprint $ "exception " ^ exnMessage e ^ " was raised";
+    eprint $ "exception " ^ exnMessage e ^ " was raised\n";
     if hist = [] then
       (output "No stack trace is avaliable\n";
       output "Recompile with -const \"Exn.keepHistory true\"\n")
@@ -30,13 +30,16 @@ struct
   end
     | ioExn _ = (output "ioExn: unreachable\n"; exit 254)
 
-  fun handler e =
-    (case e of
+  fun handler e = (
+    printf `"\n" %;
+    case e of
       T.FsmTableIsTooSmall =>
           eprint "fsm table is too small. Increate 'maxState' value"
     | IO.Io _ => ioExn e
     | T.TkErrorAug (pos, msg) => eprint $ T.S.pos2str pos ^ ": " ^ msg
     | P.TkError v => P.tkErrorPrint v
+    | P.TkClassError v => P.tkClassErrorPrint v
     | _ => otherExn e;
-    exit 255)
+    exit 255
+  )
 end
-- 
cgit v1.2.3