diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-06-02 11:50:53 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-02 11:50:53 -0400 |
| commit | 67d67ecae2fdb8708e6207db04880d89d43ba1cb (patch) | |
| tree | 4cbf52d1978e57eba75d8fbbb9091394c67d0a6a /src/jscomp.sml | |
| parent | 97570513feb954bc3845f349700f1117fd50ca4b (diff) | |
Do 'open constraints' automatically; fix sourceless <cselect> monoize bug; Monad library module
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 6 |
1 files changed, 2 insertions, 4 deletions
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 |