From 63acfc44762cbbf3d8d957127a3c5eed3a399940 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Wed, 16 Jul 2014 04:06:11 -0400
Subject: Default 'jsFunc' for less-safe FFI

---
 src/corify.sml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/corify.sml')

diff --git a/src/corify.sml b/src/corify.sml
index 162ae1ab..5d58efcc 100644
--- a/src/corify.sml
+++ b/src/corify.sml
@@ -1221,6 +1221,11 @@ fun corifyDecl mods (all as (d, loc : EM.span), st) =
                   | Source.ServerOnly => Settings.addServerOnly name
                   | Source.JsFunc s => Settings.addJsFunc (name, s)) modes;
 
+            if List.exists (fn Source.JsFunc _ => true | _ => false) modes then
+                ()
+            else
+                Settings.addJsFunc (name, #2 name);
+
             if isTrans andalso not (Settings.isBenignEffectful name) then
                 Settings.addEffectful name
             else
-- 
cgit v1.2.3