Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
975:8fe576c0bee9 976:68eda5b0636d
880 | ESignalBind (e1, e2) => 880 | ESignalBind (e1, e2) =>
881 let 881 let
882 val (e1, st) = jsE inner (e1, st) 882 val (e1, st) = jsE inner (e1, st)
883 val (e2, st) = jsE inner (e2, st) 883 val (e2, st) = jsE inner (e2, st)
884 in 884 in
885 (strcat [str "{c:\"b\",e1:", 885 (strcat [str "{c:\"f\",f:sb,a:cons(",
886 e1, 886 e1,
887 str ",e2:", 887 str ",cons(",
888 e2, 888 e2,
889 str "}"], 889 str ",null))}"],
890 st) 890 st)
891 end 891 end
892 | ESignalSource e => 892 | ESignalSource e =>
893 let 893 let
894 val (e, st) = jsE inner (e, st) 894 val (e, st) = jsE inner (e, st)