diff src/elab_print.sml @ 21:067029c748e9

Beta reductions for expressions
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 16:02:26 -0400
parents 1ab48e37d0ef
children 4ab19c19665f
line wrap: on
line diff
--- a/src/elab_print.sml	Sun Jun 08 15:47:44 2008 -0400
+++ b/src/elab_print.sml	Sun Jun 08 16:02:26 2008 -0400
@@ -200,7 +200,7 @@
 
       | ERecord xes => box [string "{",
                             p_list (fn (x, e) =>
-                                       box [p_con env x,
+                                       box [p_name env x,
                                             space,
                                             string "=",
                                             space,