diff options
author | 2008-12-20 14:19:21 -0500 | |
---|---|---|
committer | 2008-12-20 14:19:21 -0500 | |
commit | a08075494d9c16a349215fbcaefa3e1d14d2e0f9 (patch) | |
tree | b3d519edc46498c2743994fbcf548dd1a2f3e66b /src/mono_opt.sml | |
parent | e478b4d432d65b33613a601f71204fc0c656c3db (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) |