diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-12-19 12:38:11 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-12-19 12:38:11 -0500 |
commit | e478b4d432d65b33613a601f71204fc0c656c3db (patch) | |
tree | 120f43205b07cf55f8d1af41742dd275a4d863ca /src/monoize.sml | |
parent | ed7c55c7d3d47e59b73cda4d1d7663bec6728934 (diff) |
Displayed an alert dialog
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index e23d4f80..e92a1c8a 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -1744,6 +1744,19 @@ fun monoExp (env, st, fm) (all as (e, loc)) = result = (L'.TFfi ("Basis", "string"), loc)}), loc), fm) end + | (L'.TFun _, _) => + let + val s' = " " ^ lowercaseFirst x ^ "='" + in + ((L'.EStrcat (s, + (L'.EStrcat ( + (L'.EPrim (Prim.String s'), loc), + (L'.EStrcat ( + (L'.EJavaScript e, loc), + (L'.EPrim (Prim.String "'"), loc)), loc)), + loc)), loc), + fm) + end | _ => let val fooify = |