diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-12-20 14:19:21 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-12-20 14:19:21 -0500 |
| commit | 38f0a1e10825923e44f22bdd559291b32eb3173d (patch) | |
| tree | b3d519edc46498c2743994fbcf548dd1a2f3e66b /src/mono_opt.sml | |
| parent | 3eba512008eb94393e65533966aeb21c90a231f3 (diff) | |
Start of JsComp
Diffstat (limited to 'src/mono_opt.sml')
| -rw-r--r-- | src/mono_opt.sml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index 7f83c003..6c0e6e21 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -360,11 +360,6 @@ fun exp e = | EWrite (EPrim (Prim.String ""), loc) => ERecord [] - | EJavaScript (EAbs (_, (TRecord [], _), _, (EFfiApp ("Basis", "alert", [s]), _)), loc) => - EStrcat ((EPrim (Prim.String "alert("), loc), - (EStrcat ((EFfiApp ("Basis", "jsifyString", [s]), loc), - (EPrim (Prim.String ")"), loc)), loc)) - | _ => e and optExp e = #1 (U.Exp.map {typ = typ, exp = exp} e) |