diff options
| author | Vladimir Azarov <avm@intermediate-node.net> | 2025-04-04 18:24:46 +0200 |
|---|---|---|
| committer | Vladimir Azarov <avm@intermediate-node.net> | 2025-04-04 18:24:46 +0200 |
| commit | 7b29b31648fd737e7bbc007f480b799add91bc6b (patch) | |
| tree | e724c15c959d98ece73c186b82a61100f4e8d06a /exn_handler.sml | |
| parent | d7d4830443f1e385af862462f976553c8a9033e1 (diff) | |
Beginning of the preprocessor
Diffstat (limited to 'exn_handler.sml')
| -rw-r--r-- | exn_handler.sml | 3 |
1 files changed, 2 insertions, 1 deletions
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 |