diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-01 16:50:28 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-01 16:50:28 -0400 |
| commit | 36a9df5f71b954949b92520c6e472548aa5ebfb1 (patch) | |
| tree | 4dc7cebd7fa1c0a116106351fa9054351e168ff1 /src | |
| parent | 2e59aaacd591f76ba5d509284b835c8c34a034f5 (diff) | |
Remove empty writes
Diffstat (limited to 'src')
| -rw-r--r-- | src/mono_opt.sml | 3 |
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) |