Mercurial > urweb

comparison src/jscomp.sml @ 835:b0a85cbefed2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Less whining about match failures; fix singleton record Jscomp bug
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Jun 2009 12:40:09 -0400
parents 74e9e7642f08
children 5154a047c6bc
comparison
equal deleted inserted replaced
834:74e9e7642f08 835:b0a85cbefed2
850 | ERecord [] => (str "null", st) 850 | ERecord [] => (str "null", st)
851 | ERecord [(x, e, _)] => 851 | ERecord [(x, e, _)] =>
852 let 852 let
853 val (e, st) = jsE inner (e, st) 853 val (e, st) = jsE inner (e, st)
854 in 854 in
855 (strcat [str "{_x:", e, str "}"], st) 855 (strcat [str ("{_" ^ x ^ ":"), e, str "}"], st)
856 end 856 end
857 | ERecord ((x, e, _) :: xes) => 857 | ERecord ((x, e, _) :: xes) =>
858 let 858 let
859 val (e, st) = jsE inner (e, st) 859 val (e, st) = jsE inner (e, st)
860 860