diff options
| author | Brian Campbell | 2019-01-09 11:02:13 +0000 |
|---|---|---|
| committer | Brian Campbell | 2019-01-09 11:02:13 +0000 |
| commit | 7d33d9c1837149d31df06b803ed4dbf2ce4053ca (patch) | |
| tree | 01de32754547a04b921f3846f8b8b260385aca2c /src | |
| parent | 31adf7edc7957562555037df1df6bad0cca51cf6 (diff) | |
Coq: add parens around negative integer literals
Diffstat (limited to 'src')
| -rw-r--r-- | src/pretty_print_coq.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/pretty_print_coq.ml b/src/pretty_print_coq.ml index 08844eb5..5cf17056 100644 --- a/src/pretty_print_coq.ml +++ b/src/pretty_print_coq.ml @@ -585,8 +585,9 @@ let doc_lit (L_aux(lit,l)) = | L_false -> utf8string "false" | L_true -> utf8string "true" | L_num i -> - let ipp = Big_int.to_string i in - utf8string ipp + let s = Big_int.to_string i in + let ipp = utf8string s in + if Big_int.less i Big_int.zero then parens ipp else ipp | L_hex n -> failwith "Shouldn't happen" (*"(num_to_vec " ^ ("0x" ^ n) ^ ")" (*shouldn't happen*)*) | L_bin n -> failwith "Shouldn't happen" (*"(num_to_vec " ^ ("0b" ^ n) ^ ")" (*shouldn't happen*)*) | L_undef -> |