From 52a6f8656e8a600a2c59fa2802fb46fafb30de45 Mon Sep 17 00:00:00 2001 From: Vladimir Azarov Date: Mon, 12 May 2025 01:51:27 +0200 Subject: Object-like macros --- exn_handler.fun | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'exn_handler.fun') 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) -- cgit v1.2.3