diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-09-22 13:41:23 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-09-22 13:41:23 -0400 |
| commit | c328bb9c8bf1c3ac70b9e7e14157ecd2b6ba0b1d (patch) | |
| tree | 0a42ab31375f4c36279b7488d5fedfdf549e4980 /src | |
| parent | 5ee51dcd83cba0c90328d80376bef612b94f1700 (diff) | |
More interpreter debugging
Diffstat (limited to 'src')
| -rw-r--r-- | src/jscomp.sml | 4 |
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, |