diff options
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) |