Proper ppc.tkPos

1 files changed, 7 insertions, 4 deletions

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