diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-03-10 17:29:03 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-10 17:29:03 -0400 |
| commit | 90d6483a54745b4b647b429c018dd49d0797459c (patch) | |
| tree | ae4fb9cd2b1daf1601ab9ad335fbb9574d372f8f /src/mono_opt.sml | |
| parent | 4bc363c5ec2724b9d310e17181ca87517c98aa68 (diff) | |
Noisy demo
Diffstat (limited to 'src/mono_opt.sml')
| -rw-r--r-- | src/mono_opt.sml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index 469fc0d8..7f23d8b1 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -365,8 +365,6 @@ fun exp e = | EJavaScript (_, _, SOME (e, _)) => e - | EApp ((e1 as EServerCall _, _), (ERecord [], _)) => e1 - | _ => e and optExp e = #1 (U.Exp.map {typ = typ, exp = exp} e) |