summaryrefslogtreecommitdiff
path: root/src/expl_print.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-10-31 09:30:22 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-10-31 09:30:22 -0400
commit4f190e28ca1f36b85cea29ef79b1c9f163779141 (patch)
tree81322ab53b15b0d76854756431ac4c662825ad59 /src/expl_print.sml
parent13e1acb4d9330fa4d89ee7acdb4ce02fec964b47 (diff)
Replace 'with' with '++'
Diffstat (limited to 'src/expl_print.sml')
-rw-r--r--src/expl_print.sml23
1 files changed, 9 insertions, 14 deletions
diff --git a/src/expl_print.sml b/src/expl_print.sml
index 39df4e3f..d19edeae 100644
--- a/src/expl_print.sml
+++ b/src/expl_print.sml
@@ -289,31 +289,26 @@ fun p_exp' par env (e, loc) =
box [p_exp' true env e,
string ".",
p_con' true env c]
- | EWith (e1, c, e2, {field, rest}) =>
+ | EConcat (e1, c1, e2, c2) =>
parenIf par (if !debug then
- box [p_exp env e1,
+ box [p_exp' true env e1,
space,
- string "with",
+ string ":",
space,
- p_con' true env c,
+ p_con env c1,
+ space,
+ string "++",
space,
- string "=",
p_exp' true env e2,
space,
- string "[",
- p_con env field,
+ string ":",
space,
- string " in ",
- space,
- p_con env rest,
- string "]"]
+ p_con env c2]
else
- box [p_exp env e1,
+ box [p_exp' true env e1,
space,
string "with",
space,
- p_con' true env c,
- space,
p_exp' true env e2])
| ECut (e, c, {field, rest}) =>
parenIf par (if !debug then