diff options
| author | Vladimir Azarov <avm@intermediate-node.net> | 2025-05-12 01:51:27 +0200 |
|---|---|---|
| committer | Vladimir Azarov <avm@intermediate-node.net> | 2025-05-12 01:51:27 +0200 |
| commit | 52a6f8656e8a600a2c59fa2802fb46fafb30de45 (patch) | |
| tree | 72511efdccc742709f40e52ca73b708a0c74c1c6 /exn_handler.fun | |
| parent | e99a8dc48ede26696be2ba75a8cb0d5122d94598 (diff) | |
Object-like macros
Diffstat (limited to 'exn_handler.fun')
| -rw-r--r-- | exn_handler.fun | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/exn_handler.fun b/exn_handler.fun index 7e0aa4d..2d970cc 100644 --- a/exn_handler.fun +++ b/exn_handler.fun @@ -1,4 +1,4 @@ -functor ExnHandler(structure T: TOKENIZER; structure P: CPP): +functor ExnHandler(structure T: TOKENIZER; structure P: PPC): EXN_HANDLER = struct @@ -35,8 +35,7 @@ struct T.FsmTableIsTooSmall => eprint "fsm table is too small. Increate 'maxState' value" | IO.Io _ => ioExn e - | T.TkErrorAug (pos, msg) => eprint $ T.S.ppos2str pos ^ ": " ^ msg - | P.TkExpected v => P.tkExpectedPrint v + | T.TkErrorAug (pos, msg) => eprint $ T.S.pos2str pos ^ ": " ^ msg | P.TkError v => P.tkErrorPrint v | _ => otherExn e; exit 255) |