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

---
 driver.fun | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'driver.fun')

diff --git a/driver.fun b/driver.fun
index 78ca877..02eadcc 100644
--- a/driver.fun
+++ b/driver.fun
@@ -1,4 +1,4 @@
-functor Driver(P: CPP): DRIVER = struct
+functor Driver(P: PPC): DRIVER = struct
   structure P = P
 
   type config = {
@@ -30,10 +30,9 @@ functor Driver(P: CPP): DRIVER = struct
   fun exec () =
   let
     val config = parseCmdArgs initConfig (CommandLine.arguments ())
-
-    val cpp = P.create (valOf $ #file config) (#includeDirs config)
+    val fname = valOf $ #file config
   in
-    P.debugPrint cpp
+    P.debugPrint fname (#includeDirs config)
   end
 end
 
-- 
cgit v1.2.3