diff options
author | 2009-09-17 13:44:08 -0400 | |
---|---|---|
committer | 2009-09-17 13:44:08 -0400 | |
commit | 4c34d3d6afd313df90273eb4aafcd0a08c4def22 (patch) | |
tree | ae94ea41d06ce745bebd67f59187fe982168d410 | |
parent | 67e602c219b37abee5755a8935dd6c3d02e6cdcc (diff) |
Don't try to compile sigString() calls to JavaScript
-rw-r--r-- | src/jscomp.sml | 3 |
1 files changed, 3 insertions, 0 deletions
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 |