Initial import of l3c

[snipe.git] / top / top_mlton.sml

diff --git a/top/top_mlton.sml b/top/top_mlton.sml
new file mode 100644 (file)
index 0000000..3f6ea30
--- /dev/null
+++ b/top/top_mlton.sml
@@ -0,0 +1,5 @@
+val _ =
+  OS.Process.exit
+    (Top.main
+      (CommandLine.name (), CommandLine.arguments ())
+    )