diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-21 10:40:22 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-21 10:40:22 -0400 |
| commit | 007027d1bb5b084352a1fc9e4e4178ee8e9821fe (patch) | |
| tree | d74ba8993884143248dc1c3e9bb69d44d597d212 /src/cjr_print.sml | |
| parent | 29a7ea8ff27061917f6e5352f9d1eb8ccad7c680 (diff) | |
num_float
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index e0441425..3e96b1a6 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -617,6 +617,7 @@ fun p_exp' par env (e, loc) = | EBinop (s, e1, e2) => if Char.isAlpha (String.sub (s, size s - 1)) then box [string s, + string "(", p_exp env e1, string ",", space, @@ -2054,6 +2055,8 @@ fun p_file env (ds, ps) = newline, string "#include <string.h>", newline, + string "#include <math.h>", + newline, string "#include <postgresql/libpq-fe.h>", newline, newline, |