summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-09-22 13:41:23 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-09-22 13:41:23 -0400
commitc328bb9c8bf1c3ac70b9e7e14157ecd2b6ba0b1d (patch)
tree0a42ab31375f4c36279b7488d5fedfdf549e4980 /src
parent5ee51dcd83cba0c90328d80376bef612b94f1700 (diff)
More interpreter debugging
Diffstat (limited to 'src')
-rw-r--r--src/jscomp.sml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml
index 7d9ee955..1f5d669a 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -690,7 +690,7 @@ fun process file =
val (e, st) = jsE inner (e, st)
in
- (strcat [str ("{c:\"f\",f:" ^ name ^ ",:a:cons("),
+ (strcat [str ("{c:\"f\",f:" ^ name ^ ",a:cons("),
e,
str ",null)}"],
st)
@@ -728,7 +728,7 @@ fun process file =
let
val (e, st) = jsE inner (e, st)
in
- (strcat [str ("cons({n:\"" ^ x ^ ",v:"),
+ (strcat [str ("cons({n:\"" ^ x ^ "\",v:"),
e,
str "},",
es,