1 files changed, 3 insertions, 2 deletions
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