summaryrefslogtreecommitdiff
path: root/src/mono_opt.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-11-01 16:50:28 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-11-01 16:50:28 -0400
commit36a9df5f71b954949b92520c6e472548aa5ebfb1 (patch)
tree4dc7cebd7fa1c0a116106351fa9054351e168ff1 /src/mono_opt.sml
parent2e59aaacd591f76ba5d509284b835c8c34a034f5 (diff)
Remove empty writes
Diffstat (limited to 'src/mono_opt.sml')
-rw-r--r--src/mono_opt.sml3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml
index 8d11fe1a..3cf2bcd4 100644
--- a/src/mono_opt.sml
+++ b/src/mono_opt.sml
@@ -311,6 +311,9 @@ fun exp e =
| EWrite (ELet (x, t, e1, e2), loc) =>
optExp (ELet (x, t, e1, (EWrite e2, loc)), loc)
+ | EWrite (EPrim (Prim.String ""), loc) =>
+ ERecord []
+
| _ => e
and optExp e = #1 (U.Exp.map {typ = typ, exp = exp} e)