From b2d8dcd8673cfcdbf1e8a02aa19c53e42b8a60b6 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Mon, 19 May 2025 21:17:49 +0200
Subject: Transition from exception-based errors to printf-based

---
 ccross.sml | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'ccross.sml')

diff --git a/ccross.sml b/ccross.sml
index babe630..7743b3b 100644
--- a/ccross.sml
+++ b/ccross.sml
@@ -1,13 +1,9 @@
 structure ccross:> CCROSS = struct
   structure T:> TOKENIZER =
     Tokenizer(structure H = Hashtable; structure S = Stream)
-
   structure ppc:> PPC = ppc(structure Tree = Tree; structure T = T)
-
   structure D:> DRIVER = Driver(ppc)
-
-  structure ExnHandler:> EXN_HANDLER =
-    ExnHandler(structure T = T; structure P = ppc)
+  structure ExnHandler: EXN_HANDLER = ExnHandler
 end
 
 val () = MLton.Exn.setTopLevelHandler ccross.ExnHandler.handler
-- 
cgit v1.2.3