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/mono_print.sml | |
| parent | ed7c55c7d3d47e59b73cda4d1d7663bec6728934 (diff) | |
Displayed an alert dialog
Diffstat (limited to 'src/mono_print.sml')
| -rw-r--r-- | src/mono_print.sml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/mono_print.sml b/src/mono_print.sml index 8d91d048..7b675438 100644 --- a/src/mono_print.sml +++ b/src/mono_print.sml @@ -275,6 +275,9 @@ fun p_exp' par env (e, _) = | EUnurlify (e, _) => box [string "unurlify(", p_exp env e, string ")"] + | EJavaScript e => box [string "JavaScript(", + p_exp env e, + string ")"] and p_exp env = p_exp' false env |