From e18863bcabc5d185b7fe1fc750bdf0bbdb5a4f78 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 8 Jun 2008 15:47:44 -0400
Subject: Some con reducing

---
 src/source_print.sml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/source_print.sml')

diff --git a/src/source_print.sml b/src/source_print.sml
index 90524241..9c3b870b 100644
--- a/src/source_print.sml
+++ b/src/source_print.sml
@@ -79,7 +79,7 @@ fun p_con' par (c, _) =
                                                 p_con c])
       | TRecord (CRecord xcs, _) => box [string "{",
                                          p_list (fn (x, c) =>
-                                                    box [p_con x,
+                                                    box [p_name x,
                                                          space,
                                                          string ":",
                                                          space,
@@ -127,6 +127,11 @@ fun p_con' par (c, _) =
         
 and p_con c = p_con' false c
 
+and p_name (all as (c, _)) =
+    case c of
+        CName s => string s
+      | _ => p_con all
+
 fun p_exp' par (e, _) =
     case e of
         EAnnot (e, t) => box [string "(",
-- 
cgit v1.2.3