diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-09-17 13:44:08 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-09-17 13:44:08 -0400 |
| commit | 4c34d3d6afd313df90273eb4aafcd0a08c4def22 (patch) | |
| tree | ae94ea41d06ce745bebd67f59187fe982168d410 /src/jscomp.sml | |
| parent | 67e602c219b37abee5755a8935dd6c3d02e6cdcc (diff) | |
Don't try to compile sigString() calls to JavaScript
Diffstat (limited to 'src/jscomp.sml')
| -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 |