diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-03-28 17:34:57 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-03-28 17:34:57 -0400 |
| commit | e9b1040a1f27a07afc7b2bf33522b1058163bf2b (patch) | |
| tree | 07693c3eaedb3b11fb52fdfa8bcf8cc7c8aaecf8 /src/source_print.sml | |
| parent | a6d534b172ccb8eadc24e0e903b196085869800e (diff) | |
Fun with records
Diffstat (limited to 'src/source_print.sml')
| -rw-r--r-- | src/source_print.sml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/source_print.sml b/src/source_print.sml index b81a82df..de9e2c7c 100644 --- a/src/source_print.sml +++ b/src/source_print.sml @@ -170,6 +170,19 @@ fun p_exp' par (e, _) = space, p_exp e]) + | ERecord xes => box [string "{", + p_list (fn (x, e) => + box [p_con x, + space, + string "=", + space, + p_exp e]) xes, + string "}"] + | EField (e, c) => box [p_exp' true e, + string ".", + p_con' true c] + + and p_exp e = p_exp' false e fun p_decl ((d, _) : decl) = |