diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-04-16 10:12:04 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-04-16 10:12:04 -0400 |
| commit | a403a8d5343719e7bfc663cfb45ca09ade0ad77d (patch) | |
| tree | 9e59dcd228c72ece5a964b86b6a487f863d671be /src/elab_print.sml | |
| parent | 3c509a1766d03bc1854d2d70e2d1611eb4e2c3f9 (diff) | |
Tweak printing of constructor record literals to allow re-parsing by compiler
Diffstat (limited to 'src/elab_print.sml')
| -rw-r--r-- | src/elab_print.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/elab_print.sml b/src/elab_print.sml index d292d7c5..46ad9285 100644 --- a/src/elab_print.sml +++ b/src/elab_print.sml @@ -169,7 +169,7 @@ fun p_con' par env (c, _) = if !debug then parenIf par (box [string "[", p_list (fn (x, c) => - box [p_con env x, + box [p_name env x, space, string "=", space, @@ -179,7 +179,7 @@ fun p_con' par env (c, _) = else parenIf par (box [string "[", p_list (fn (x, c) => - box [p_con env x, + box [p_name env x, space, string "=", space, |