From d9c809a5550b2fe23b2fd1e66672b503730d55f1 Mon Sep 17 00:00:00 2001 From: Vladimir Azarov Date: Sun, 25 May 2025 19:59:56 +0200 Subject: Expression parsing --- ccross.sml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'ccross.sml') diff --git a/ccross.sml b/ccross.sml index 7743b3b..92810b8 100644 --- a/ccross.sml +++ b/ccross.sml @@ -2,8 +2,9 @@ structure ccross:> CCROSS = struct structure T:> TOKENIZER = Tokenizer(structure H = Hashtable; structure S = Stream) structure ppc:> PPC = ppc(structure Tree = Tree; structure T = T) - structure D:> DRIVER = Driver(ppc) - structure ExnHandler: EXN_HANDLER = ExnHandler + structure Parser:> PARSER = Parser(ppc) + structure D:> DRIVER = Driver(Parser) + structure ExnHandler:> EXN_HANDLER = ExnHandler end val () = MLton.Exn.setTopLevelHandler ccross.ExnHandler.handler -- cgit v1.2.3