From 0156bf0da091dd2a773c08c2917c121bc86643bb Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Fri, 19 Aug 2011 15:23:01 -0400 Subject: Basis.mkMonad --- src/core_print.sml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/core_print.sml') diff --git a/src/core_print.sml b/src/core_print.sml index ca8066b3..8e46db04 100644 --- a/src/core_print.sml +++ b/src/core_print.sml @@ -1,4 +1,4 @@ -(* Copyright (c) 2008, Adam Chlipala +(* Copyright (c) 2008-2011, Adam Chlipala * All rights reserved. * * Redistribution and use in source and binary forms, with or without @@ -281,7 +281,7 @@ fun p_exp' par env (e, _) = | EApp (e1, e2) => parenIf par (box [p_exp' true env e1, space, p_exp' true env e2]) - | EAbs (x, t, _, e) => parenIf par (box [string "fn", + | EAbs (x, t, _, e) => parenIf par (box [string "(fn", space, string x, space, @@ -291,7 +291,8 @@ fun p_exp' par env (e, _) = space, string "=>", space, - p_exp (E.pushERel env x t) e]) + p_exp (E.pushERel env x t) e, + string ")"]) | ECApp (e, c) => parenIf par (box [p_exp env e, space, string "[", -- cgit v1.2.3