summaryrefslogtreecommitdiff
path: root/src/jscomp.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-09-24 10:42:59 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-09-24 10:42:59 -0400
commit19754bcfbe11a079957aeb9f012f3ee70b31bb84 (patch)
tree4fca46ab109a2ef7f17bb130f1b00a26b41f0c91 /src/jscomp.sml
parentf93acbb03f1ea669499bfb39d201ae8dd48f101b (diff)
demo/increment works with interpretation
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r--src/jscomp.sml10
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