Mercurial > urweb
diff src/mono_opt.sml @ 815:493f44759879
Redo Jscomp
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 17 May 2009 18:41:43 -0400 |
parents | efceae06df17 |
children | 3c7b48040dcf |
line wrap: on
line diff
--- a/src/mono_opt.sml Sun May 17 14:36:55 2009 -0400 +++ b/src/mono_opt.sml Sun May 17 18:41:43 2009 -0400 @@ -376,8 +376,6 @@ | ESignalBind ((ESignalReturn e1, loc), e2) => optExp (EApp (e2, e1), loc) - | EJavaScript (_, _, SOME (e, _)) => e - | EFfiApp ("Basis", "bless", [(se as EPrim (Prim.String s), loc)]) => (if Settings.checkUrl s then ()