From 67d67ecae2fdb8708e6207db04880d89d43ba1cb Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 2 Jun 2009 11:50:53 -0400
Subject: Do 'open constraints' automatically; fix sourceless <cselect> monoize
 bug; Monad library module

---
 src/jscomp.sml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/jscomp.sml')

diff --git a/src/jscomp.sml b/src/jscomp.sml
index e162aa7f..f197ce13 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -374,10 +374,8 @@ fun process file =
                          ((EApp ((ENamed n', loc), e), loc), st)
                      end)
 
-              | _ => raise CantEmbed t
-                             (*(EM.errorAt loc "Don't know how to embed type in JavaScript";
-                      Print.prefaces "Can't embed" [("t", MonoPrint.p_typ MonoEnv.empty t)];
-                      (str loc "ERROR", st))*)
+              | _ => ((*Print.prefaces "Can't embed" [("t", MonoPrint.p_typ MonoEnv.empty t)];*)
+                      raise CantEmbed t)
 
         fun unurlifyExp loc (t : typ, st) =
             case #1 t of
-- 
cgit v1.2.3