diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-14 10:31:11 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-14 10:31:11 -0400 |
| commit | 471d135b67086298642e9bd26e0e380a605b7068 (patch) | |
| tree | 5e1f870d80f1e625b95a2fae835753a0103a3285 /src/jscomp.sml | |
| parent | b6163966d74b8f4636d63f28179205ed9f6daaaf (diff) | |
Improvements while working on Graftid
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index d10bfd50..c01b9e10 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -824,11 +824,11 @@ fun process file = val (e, st) = jsE inner (e', st) in - (strcat (str "(" + (strcat (str "(d0=" + :: e + :: str "," :: List.revAppend (cases, - [str "d0=", - e, - str ",c0())"])), st) + [str "c0())"])), st) end | EStrcat (e1, e2) => |