diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-09-22 17:12:20 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-09-22 17:12:20 -0400 |
| commit | 8a2471f596ccc47a1037fe4418c287f13b491798 (patch) | |
| tree | 3e820ed42ed7d6327b54c1b6eb4afad7c81ebf25 /src | |
| parent | 98bc0188c56d45ad9cf00296ace4ab25b52238a0 (diff) | |
demo/react works with interpretation
Diffstat (limited to 'src')
| -rw-r--r-- | src/jscomp.sml | 6 | ||||
| -rw-r--r-- | src/monoize.sml | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index 570a708c..8e0297c3 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -882,11 +882,11 @@ fun process file = 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 => diff --git a/src/monoize.sml b/src/monoize.sml index c0ae1fee..e0744cbe 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -2682,7 +2682,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = [("Signal", e, _)] => ((L'.EStrcat ((L'.EPrim (Prim.String ("<script type=\"text/javascript\">dyn(\"" - ^ tag ^ "\", exec(")), loc), + ^ tag ^ "\", execD(")), loc), (L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc), (L'.EPrim (Prim.String ("))</script>")), loc)), loc)), loc), fm) |