summaryrefslogtreecommitdiff
path: root/src/jscomp.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-03-10 17:29:03 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-03-10 17:29:03 -0400
commitfc1611149a6b6a4a56ae974152f16fb88ae89a6e (patch)
treeae4fb9cd2b1daf1601ab9ad335fbb9574d372f8f /src/jscomp.sml
parent3a94a798557f71cba0fdfdb54cdf431c44a4ef1d (diff)
Noisy demo
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r--src/jscomp.sml13
1 files changed, 1 insertions, 12 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml
index adff2fda..00048458 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -895,15 +895,6 @@ fun process file =
| EDml _ => unsupported "DML"
| ENextval _ => unsupported "Nextval"
| EUnurlify _ => unsupported "EUnurlify"
- (*| EJavaScript (_, e as (EAbs _, _), _) =>
- let
- val (e, st) = jsE inner (e, st)
- in
- (strcat [str "\"cr(\"+ca(",
- e,
- str ")+\")\""],
- st)
- end*)
| EJavaScript (_, e, _) =>
let
val (e, st) = jsE inner (e, st)
@@ -982,9 +973,7 @@ fun process file =
end
in
case e of
- EJavaScript (m, orig as (EAbs (_, t, _, e), _), NONE) =>
- doCode m 1 (t :: env) orig e
- | EJavaScript (m, orig, NONE) =>
+ EJavaScript (m, orig, NONE) =>
doCode m 0 env orig orig
| _ => (e, st)
end,