aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/elab_print.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/elab_print.sml')
-rw-r--r--src/elab_print.sml7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/elab_print.sml b/src/elab_print.sml
index fcf5e747..6f1c0148 100644
--- a/src/elab_print.sml
+++ b/src/elab_print.sml
@@ -78,7 +78,7 @@ fun p_con' par env (c, _) =
p_con (E.pushCRel env x k) c])
| TRecord (CRecord (_, xcs), _) => box [string "{",
p_list (fn (x, c) =>
- box [p_con env x,
+ box [p_name env x,
space,
string ":",
space,
@@ -149,6 +149,11 @@ fun p_con' par env (c, _) =
and p_con env = p_con' false env
+and p_name env (all as (c, _)) =
+ case c of
+ CName s => string s
+ | _ => p_con env all
+
fun p_exp' par env (e, _) =
case e of
EPrim p => Prim.p_t p