Mercurial > urweb

comparison src/jscomp.sml @ 1177:26fed2c4f5be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Louder jscomp; toUpper/Lower fix for JavaScript
author Adam Chlipala <adamc@hcoop.net>
date Thu, 04 Mar 2010 13:47:16 -0500
parents 51e596feec37
children 78b36c50daf9
comparison
equal deleted inserted replaced
1176:51e596feec37 1177:26fed2c4f5be
1 (* Copyright (c) 2008, Adam Chlipala 1 (* Copyright (c) 2008-2010, Adam Chlipala
2 * All rights reserved. 2 * All rights reserved.
3 * 3 *
4 * Redistribution and use in source and binary forms, with or without 4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions are met: 5 * modification, are permitted provided that the following conditions are met:
6 * 6 *
1171 end 1171 end
1172 1172
1173 | EJavaScript (m, e') => 1173 | EJavaScript (m, e') =>
1174 (foundJavaScript := true; 1174 (foundJavaScript := true;
1175 jsExp m outer (e', st) 1175 jsExp m outer (e', st)
1176 handle CantEmbed t => ((*Print.preface ("Can't embed", MonoPrint.p_typ MonoEnv.empty t);*) 1176 handle CantEmbed t => ((*ErrorMsg.errorAt loc "Unable to embed type in JavaScript";*)
1177 Print.preface ("Can't embed type in JavaScript",
1178 MonoPrint.p_typ MonoEnv.empty t);
1177 (e, st))) 1179 (e, st)))
1178 1180
1179 | ESignalReturn e => 1181 | ESignalReturn e =>
1180 let 1182 let
1181 val (e, st) = exp outer (e, st) 1183 val (e, st) = exp outer (e, st)