From 268a152731498e58f38da0a4f1dc5046ae2fbf3f Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 17 May 2009 18:41:43 -0400
Subject: Redo Jscomp

---
 src/mono_util.sml | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

(limited to 'src/mono_util.sml')

diff --git a/src/mono_util.sml b/src/mono_util.sml
index 83621c99..e2bed8eb 100644
--- a/src/mono_util.sml
+++ b/src/mono_util.sml
@@ -340,20 +340,12 @@ fun mapfoldB {typ = fc, exp = fe, bind} =
                         S.map2 (mft t,
                                 fn t' =>
                                    (EUnurlify (e', t'), loc)))
-              | EJavaScript (m, e, NONE) =>
+              | EJavaScript (m, e) =>
                 S.bind2 (mfmode ctx m,
                          fn m' =>
                             S.map2 (mfe ctx e,
                                  fn e' =>
-                                    (EJavaScript (m', e', NONE), loc)))
-              | EJavaScript (m, e, SOME e2) =>
-                S.bind2 (mfmode ctx m,
-                         fn m' =>
-                            S.bind2 (mfe ctx e,
-                                  fn e' =>
-                                     S.map2 (mfe ctx e2,
-                                          fn e2' =>
-                                             (EJavaScript (m, e', SOME e2'), loc))))
+                                    (EJavaScript (m', e'), loc)))
 
               | ESignalReturn e =>
                 S.map2 (mfe ctx e,
-- 
cgit v1.2.3