From 52a6f8656e8a600a2c59fa2802fb46fafb30de45 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Mon, 12 May 2025 01:51:27 +0200
Subject: Object-like macros

---
 ccross.sml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'ccross.sml')

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
-- 
cgit v1.2.3