Mercurial > urweb

changeset 950:5be3d19b59f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't try to compile sigString() calls to JavaScript
author Adam Chlipala <adamc@hcoop.net>
date Thu, 17 Sep 2009 13:44:08 -0400
parents 6646b95f1860
children 103ac1792c41
files src/jscomp.sml
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/jscomp.sml	Thu Sep 17 13:30:56 2009 -0400
+++ b/src/jscomp.sml	Thu Sep 17 13:44:08 2009 -0400
@@ -800,6 +800,9 @@
                             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