From e18863bcabc5d185b7fe1fc750bdf0bbdb5a4f78 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 8 Jun 2008 15:47:44 -0400 Subject: Some con reducing --- src/elab_print.sml | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/elab_print.sml') 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 -- cgit v1.2.3