diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-03-10 17:29:03 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-10 17:29:03 -0400 |
| commit | fc1611149a6b6a4a56ae974152f16fb88ae89a6e (patch) | |
| tree | ae4fb9cd2b1daf1601ab9ad335fbb9574d372f8f /src/jscomp.sml | |
| parent | 3a94a798557f71cba0fdfdb54cdf431c44a4ef1d (diff) | |
Noisy demo
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 13 |
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, |