demo/increment works with interpretation

1 files changed, 5 insertions, 5 deletions

diff --git a/src/jscomp.sml b/src/jscomp.sml
index b968ce79..1c94cd05 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -912,11 +912,11 @@ fun process file =
                                          str (",cons({c:\"c\",v:function(s){var t=s.split(\"/\");var i=0;return "
                                               ^ unurl ^ "}},cons("),
                                          ek,
-                                         str (",cons("
+                                         str (",cons({c:\"c\",v:"
                                               ^ (case eff of
                                                      ReadCookieWrite => "true"
                                                    | _ => "false")
-                                              ^ ",null)))))}")],
+                                              ^ "},null)))))}")],
                                  st)
                             end
 
@@ -940,10 +940,10 @@ fun process file =
                                 val (e, st) = jsE inner (e, st)
                                 val (ek, st) = jsE inner (ek, st)
                             in
-                                (strcat [str "{c:\"f\",f:window.setTimeout,a:cons(",
-                                         ek,
-                                         str ",cons(",
+                                (strcat [str "{c:\"f\",f:sl,a:cons(",
                                          e,
+                                         str ",cons(",
+                                         ek,
                                          str ",null))}"],
                                  st)
                             end