Mercurial > urweb

diff src/corify.sml @ 2039:3d10ae22abd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Default 'jsFunc' for less-safe FFI
author Adam Chlipala <adam@chlipala.net>
date Wed, 16 Jul 2014 04:06:11 -0400
parents ec2c7a22df0d
children
line wrap: on
line diff
--- a/src/corify.sml	Sun Jul 13 06:14:23 2014 -0400
+++ b/src/corify.sml	Wed Jul 16 04:06:11 2014 -0400
@@ -1221,6 +1221,11 @@
                   | 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