diff options
author | 2011-08-19 15:23:01 -0400 | |
---|---|---|
committer | 2011-08-19 15:23:01 -0400 | |
commit | ed93f02f2bad4c97b361025ebe851331f7640cad (patch) | |
tree | 49a42ce8909e7f3df3a9fe122d4da57b21f67108 /src/core_print.sml | |
parent | 7144b7ff351ce55fe39d107342ba2778331700e6 (diff) |
Basis.mkMonad
Diffstat (limited to 'src/core_print.sml')
-rw-r--r-- | src/core_print.sml | 7 |
1 files changed, 4 insertions, 3 deletions
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 "[", |