Mercurial > urweb

diff src/jscomp.sml @ 1433:66092ce45a76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ignore JavaScript events in Effectize; allow extra spaces for 'jsFunc'; eat carriage returns at line ends in .urp files
author Adam Chlipala <adam@chlipala.net>
date Thu, 10 Mar 2011 20:22:03 -0500
parents 07ef5771568d
children 6e6f1643c4e9
line wrap: on
line diff
--- a/src/jscomp.sml	Thu Mar 10 19:26:35 2011 -0500
+++ b/src/jscomp.sml	Thu Mar 10 20:22:03 2011 -0500
@@ -646,7 +646,8 @@
                             let
                                 val name = case Settings.jsFunc (m, x) of
                                                NONE => (EM.errorAt loc ("Unsupported FFI function "
-                                                                        ^ x ^ " in JavaScript");
+                                                                        ^ m ^ "." ^ x ^ " in JavaScript");
+                                                        app (fn ((m', x'), _) => print (m' ^ "." ^ x' ^ "\n")) (Settings.allJsFuncs ());
                                                         "ERROR")
                                              | SOME s => s