Mercurial > urweb

diff src/jscomp.sml @ 976:68eda5b0636d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
demo/react works with interpretation
author Adam Chlipala <adamc@hcoop.net>
date Tue, 22 Sep 2009 17:12:20 -0400
parents b851675a2c3d
children 2ecf308772ba
line wrap: on
line diff
--- a/src/jscomp.sml	Tue Sep 22 15:12:09 2009 -0400
+++ b/src/jscomp.sml	Tue Sep 22 17:12:20 2009 -0400
@@ -882,11 +882,11 @@
                                 val (e1, st) = jsE inner (e1, st)
                                 val (e2, st) = jsE inner (e2, st)
                             in
-                                (strcat [str "{c:\"b\",e1:",
+                                (strcat [str "{c:\"f\",f:sb,a:cons(",
                                          e1,
-                                         str ",e2:",
+                                         str ",cons(",
                                          e2,
-                                         str "}"],
+                                         str ",null))}"],
                                  st)
                             end
                           | ESignalSource e =>