diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-06-02 12:40:09 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-02 12:40:09 -0400 |
| commit | 03ab7faa47089d1dc5757adc0288d63f02b3ade8 (patch) | |
| tree | 881b970859757ebd3e49447af14a5ea7348461c7 /src/jscomp.sml | |
| parent | 67d67ecae2fdb8708e6207db04880d89d43ba1cb (diff) | |
Less whining about match failures; fix singleton record Jscomp bug
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index f197ce13..91ac0acb 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -852,7 +852,7 @@ fun process file = let val (e, st) = jsE inner (e, st) in - (strcat [str "{_x:", e, str "}"], st) + (strcat [str ("{_" ^ x ^ ":"), e, str "}"], st) end | ERecord ((x, e, _) :: xes) => let |