diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-01-07 15:56:22 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-01-07 15:56:22 -0500 |
| commit | 09b5839acfe26561fa87c89168133fc93c1083cc (patch) | |
| tree | 587292f9b176c383c7b6332cdc30a817e355fe1d /src/core_print.sml | |
| parent | bd78657f61d3783f9a282bf38ad0cbcb8b8bf5d4 (diff) | |
First part of changes to avoid depending on C function call argument order of evaluation (omitting normal Ur function calls, so far)
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 8e46db04..910ec10a 100644 --- a/src/core_print.sml +++ b/src/core_print.sml @@ -276,7 +276,7 @@ fun p_exp' par env (e, _) = string ".", string x, string "(", - p_list (p_exp env) es, + p_list (p_exp env o #1) es, string "))"] | EApp (e1, e2) => parenIf par (box [p_exp' true env e1, space, |