Object-like macros

1 files changed, 3 insertions, 3 deletions

diff --git a/ccross.sml b/ccross.sml
index d42368d..1dab748 100644
--- a/ccross.sml
+++ b/ccross.sml
@@ -2,12 +2,12 @@ structure ccross:> CCROSS = struct
   structure T:> TOKENIZER =
     Tokenizer(structure H = Hashtable; structure S = Stream)
 
-  structure P:> CPP = Cpp(T)
+  structure ppc:> PPC = ppc(structure H = Hashtable; structure T = T)
 
-  structure D:> DRIVER = Driver(P)
+  structure D:> DRIVER = Driver(ppc)
 
   structure ExnHandler:> EXN_HANDLER =
-    ExnHandler(structure T = T; structure P = P)
+    ExnHandler(structure T = T; structure P = ppc)
 end
 
 val () = MLton.Exn.setTopLevelHandler ccross.ExnHandler.handler