From 4c34d3d6afd313df90273eb4aafcd0a08c4def22 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 17 Sep 2009 13:44:08 -0400
Subject: Don't try to compile sigString() calls to JavaScript

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

(limited to 'src')

diff --git a/src/jscomp.sml b/src/jscomp.sml
index ca4f047b..1d52f75d 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -800,6 +800,9 @@ fun process file =
                             in
                                 (str name, st)
                             end
+                          | EFfiApp ("Basis", "sigString", [_]) => (strcat [str "\"",
+                                                                           e,
+                                                                           str "\""], st)
                           | EFfiApp ("Basis", "kc", []) => (str "kc(event)", st)
                           | EFfiApp (m, x, args) =>
                             let
-- 
cgit v1.2.3