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 | 3eba512008eb94393e65533966aeb21c90a231f3 (patch) | |
| tree | 120f43205b07cf55f8d1af41742dd275a4d863ca /src/monoize.sml | |
| parent | 2c8e4cddb5f5c7a85337b8c42135c346b14de1f4 (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 = |