diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-11 11:49:51 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-11 11:49:51 -0500 |
| commit | efdbe3296b37e61fe8838762e4212756f4a3833d (patch) | |
| tree | ce9540d60a9af2f4d7d9a9767b507d174f3283f1 /src/core_print.sml | |
| parent | b6d4b9caac8f61ee5900f1ae1387d686e2c9480d (diff) | |
Get threadedBlog to work
Diffstat (limited to 'src/core_print.sml')
| -rw-r--r-- | src/core_print.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/core_print.sml b/src/core_print.sml index af43e401..f209b84f 100644 --- a/src/core_print.sml +++ b/src/core_print.sml @@ -227,7 +227,7 @@ fun p_exp' par env (e, _) = string "(", p_list (p_exp env) es, string "))"] - | EApp (e1, e2) => parenIf par (box [p_exp env e1, + | 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", |