From 465a846ac94199b36f11e086abd9d6a9a906f63f Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Mon, 16 Apr 2012 10:12:04 -0400 Subject: Tweak printing of constructor record literals to allow re-parsing by compiler --- src/elab_print.sml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/elab_print.sml b/src/elab_print.sml index d292d7c5..46ad9285 100644 --- a/src/elab_print.sml +++ b/src/elab_print.sml @@ -169,7 +169,7 @@ fun p_con' par env (c, _) = if !debug then parenIf par (box [string "[", p_list (fn (x, c) => - box [p_con env x, + box [p_name env x, space, string "=", space, @@ -179,7 +179,7 @@ fun p_con' par env (c, _) = else parenIf par (box [string "[", p_list (fn (x, c) => - box [p_con env x, + box [p_name env x, space, string "=", space, -- cgit v1.2.3