diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-31 13:08:57 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-31 13:08:57 -0400 |
| commit | d668886a45158cf3a292fdef3fa81498efd77652 (patch) | |
| tree | 8b94f33c7f9d49dfb2a8b7b65cee62097fcf9630 /src/source_print.sml | |
| parent | 183c43eb783edd68f76f941fa61b6ef1f8752a56 (diff) | |
Elaborating record patterns
Diffstat (limited to 'src/source_print.sml')
| -rw-r--r-- | src/source_print.sml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/source_print.sml b/src/source_print.sml index 93416fd3..960f3ac5 100644 --- a/src/source_print.sml +++ b/src/source_print.sml @@ -173,14 +173,14 @@ fun p_pat' par (p, _) = p_pat' true p]) | PRecord (xps, flex) => let - val pps = map (fn (x, p) => box [string "x", space, string "=", space, p_pat p]) xps + val pps = map (fn (x, p) => box [string x, space, string "=", space, p_pat p]) xps in box [string "{", p_list_sep (box [string ",", space]) (fn x => x) (if flex then - pps + pps @ [string "..."] else - pps @ [string "..."]), + pps), string "}"] end |