Mercurial > urweb
diff src/jscomp.sml @ 976:68eda5b0636d
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 =>