From 7b29b31648fd737e7bbc007f480b799add91bc6b Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Fri, 4 Apr 2025 18:24:46 +0200
Subject: Beginning of the preprocessor

---
 exn_handler.sml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'exn_handler.sml')

diff --git a/exn_handler.sml b/exn_handler.sml
index 52a2c5c..50fb8dc 100644
--- a/exn_handler.sml
+++ b/exn_handler.sml
@@ -30,13 +30,14 @@ structure GlobalExnHandler: sig val handler: exn -> unit end = struct
 
   fun handler e =
   let
-    open Tokenizer
+    open Tokenizer Cpp
   in
     (case e of
       FsmTableIsTooSmall =>
           eprint "fsm table is too small. Increate 'maxState' value"
     | IO.Io _ => ioExn e
     | TkErrorAug (pos, msg) => eprint $ Stream.ppos2str pos ^ ": " ^ msg
+    | TkExpected v => tkExpectedPrint v
     | _ => otherExn e;
     exit 255)
   end
-- 
cgit v1.2.3