summaryrefslogtreecommitdiff
path: root/src/mono_opt.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-12-30 11:33:31 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-12-30 11:33:31 -0500
commit77beb6566840b8a31e830f51a8e27e043b47e4cd (patch)
treeb7021de5c40560deac989019822d5180fc46ed43 /src/mono_opt.sml
parent76c5b74abd4450a6a68084e08a7a7946e0e31fe9 (diff)
Harmonized source-setting between server and client
Diffstat (limited to 'src/mono_opt.sml')
-rw-r--r--src/mono_opt.sml2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml
index 550a055c..7f23d8b1 100644
--- a/src/mono_opt.sml
+++ b/src/mono_opt.sml
@@ -363,6 +363,8 @@ fun exp e =
| ESignalBind ((ESignalReturn e1, loc), e2) =>
optExp (EApp (e2, e1), loc)
+ | EJavaScript (_, _, SOME (e, _)) => e
+
| _ => e
and optExp e = #1 (U.Exp.map {typ = typ, exp = exp} e)