diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-02-15 13:03:09 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-02-15 13:03:09 -0500 |
| commit | 4f0987ddef3dc105c3883aa9c1c69c29fbe86a8a (patch) | |
| tree | 30c7775fe1755a17af3ea46d0a02ebf077c822ac /src/mono_print.sml | |
| parent | f083e82c95ac4a9d3a22e032f81b6dc88a88f499 (diff) | |
Parameterized RPC query
Diffstat (limited to 'src/mono_print.sml')
| -rw-r--r-- | src/mono_print.sml | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/mono_print.sml b/src/mono_print.sml index ba4c57f1..a61b5847 100644 --- a/src/mono_print.sml +++ b/src/mono_print.sml @@ -308,11 +308,8 @@ fun p_exp' par env (e, _) = p_exp env e, string ")"] - | EServerCall (n, es, e, _) => box [string "Server(", - string n, - string ",", - space, - p_list (p_exp env) es, + | EServerCall (n, e, _) => box [string "Server(", + p_exp env n, string ")[", p_exp env e, string "]"] |