diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-06-08 15:47:44 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-08 15:47:44 -0400 |
commit | e18863bcabc5d185b7fe1fc750bdf0bbdb5a4f78 (patch) | |
tree | 180c8271605929d6c902c4dda9b8b756ff0e1fda /src/core_print.sml | |
parent | b0bf85209e8ddd4937393908d953f451556e73e9 (diff) |
Some con reducing
Diffstat (limited to 'src/core_print.sml')
-rw-r--r-- | src/core_print.sml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/core_print.sml b/src/core_print.sml index 1e254862..c035ceef 100644 --- a/src/core_print.sml +++ b/src/core_print.sml @@ -69,7 +69,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, @@ -134,6 +134,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 |