Mercurial > urweb

diff src/jscomp.sml @ 1260:25ebd8c4fafb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Thunking recursive JavaScripted function ASTs, to reduce page load time dramatically
author Adam Chlipala <adamc@hcoop.net>
date Sat, 22 May 2010 14:09:06 -0400
parents 78b36c50daf9
children 003df929ee08
line wrap: on
line diff
--- a/src/jscomp.sml	Tue May 18 14:47:56 2010 -0400
+++ b/src/jscomp.sml	Sat May 22 14:09:06 2010 -0400
@@ -565,7 +565,8 @@
                                                 val (e, st) = jsExp mode [] (e, st)
                                                 val e = deStrcat 0 e
                                                 
-                                                val sc = "urfuncs[" ^ Int.toString n ^ "] = " ^ e ^ ";\n"
+                                                val sc = "urfuncs[" ^ Int.toString n ^ "] = {c:\"t\",f:function(){return "
+                                                         ^ e ^ "}};\n"
                                             in
                                                 (*Print.prefaces "jsify'" [("old", MonoPrint.p_exp MonoEnv.empty old),
                                                                          ("new", MonoPrint.p_exp MonoEnv.empty new)];*)