#include directive

1 files changed, 3 insertions, 5 deletions

diff --git a/ccross.sml b/ccross.sml
index 749687b..d42368d 100644
--- a/ccross.sml
+++ b/ccross.sml
@@ -4,13 +4,11 @@ structure ccross:> CCROSS = struct
 
   structure P:> CPP = Cpp(T)
 
+  structure D:> DRIVER = Driver(P)
+
   structure ExnHandler:> EXN_HANDLER =
     ExnHandler(structure T = T; structure P = P)
 end
 
 val () = MLton.Exn.setTopLevelHandler ccross.ExnHandler.handler
-
-fun main [fname] = ccross.P.debugPrint fname
-  | main _  = printLn "Expected a single argument: file name"
-
-val () = main $ CommandLine.arguments ()
+val () = ccross.D.exec ()