Mercurial > urweb

diff src/jscomp.sml @ 973:e30c2409c9d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More interpreter debugging
author Adam Chlipala <adamc@hcoop.net>
date Tue, 22 Sep 2009 13:41:23 -0400
parents 8371d12ae63f
children b851675a2c3d
line wrap: on
line diff
--- a/src/jscomp.sml	Tue Sep 22 13:27:47 2009 -0400
+++ b/src/jscomp.sml	Tue Sep 22 13:41:23 2009 -0400
@@ -690,7 +690,7 @@
 
                                 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 @@
                                               let
                                                   val (e, st) = jsE inner (e, st)
                                               in
-                                                  (strcat [str ("cons({n:\"" ^ x ^ ",v:"),
+                                                  (strcat [str ("cons({n:\"" ^ x ^ "\",v:"),
                                                            e,
                                                            str "},",
                                                            es,