summaryrefslogtreecommitdiff
path: root/src/jscomp.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r--src/jscomp.sml8
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) =>