From c5a46fa63373c129e9595373d4c126030266d957 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 27 Dec 2009 13:18:32 -0500
Subject: Dynamic linking of the runtime system

---
 src/main.mlton.sml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/main.mlton.sml')

diff --git a/src/main.mlton.sml b/src/main.mlton.sml
index 36d0ce98..42f05259 100644
--- a/src/main.mlton.sml
+++ b/src/main.mlton.sml
@@ -63,6 +63,9 @@ fun doArgs args =
       | "-sql" :: s :: rest =>
         (Settings.setSql (SOME s);
          doArgs rest)
+      | "-static" :: rest =>
+        (Settings.setStaticLinking true;
+         doArgs rest)
       | arg :: rest =>
         (if size arg > 0 andalso String.sub (arg, 0) = #"-" then
              raise Fail ("Unknown flag " ^ arg)
-- 
cgit v1.2.3