Mercurial > urweb

diff src/mono_opt.sml @ 567:1901db85acb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of JsComp
author Adam Chlipala <adamc@hcoop.net>
date Sat, 20 Dec 2008 14:19:21 -0500
parents a152905c3c3b
children 57018f21cd5c
line wrap: on
line diff
--- a/src/mono_opt.sml	Fri Dec 19 12:38:11 2008 -0500
+++ b/src/mono_opt.sml	Sat Dec 20 14:19:21 2008 -0500
@@ -360,11 +360,6 @@
       | 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)