Mercurial > urweb

diff src/core_print.sml @ 20:1ab48e37d0ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some con reducing
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 15:47:44 -0400
parents bc7b76ca57e0
children 067029c748e9
line wrap: on
line diff
--- a/src/core_print.sml	Sun Jun 08 14:42:12 2008 -0400
+++ b/src/core_print.sml	Sun Jun 08 15:47:44 2008 -0400
@@ -69,7 +69,7 @@
                                              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 @@
         
 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