From cdc696d1aad6239ae526b7cd6c4e5cd3069db9e1 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Thu, 10 Mar 2011 20:22:03 -0500
Subject: Ignore JavaScript events in Effectize; allow extra spaces for
 'jsFunc'; eat carriage returns at line ends in .urp files

---
 src/jscomp.sml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/jscomp.sml')

diff --git a/src/jscomp.sml b/src/jscomp.sml
index cd08cc0d..9321b9ce 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -646,7 +646,8 @@ fun process file =
                             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
 
-- 
cgit v1.2.3