diff options
| author | Alasdair Armstrong | 2017-09-07 17:09:33 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-09-07 17:09:33 +0100 |
| commit | 97ebda8681ec38d6e087abe04629255420991a40 (patch) | |
| tree | fa2c52eff75b31f4d5e2b81ad68484266be2dfe5 /src/pretty_print_common.ml | |
| parent | 842165c1171fde332bd42e7520338c59a797f76b (diff) | |
| parent | 2625f48417d25ab0493884b2f934887b86d568ab (diff) | |
Merge branch 'experiments' of https://bitbucket.org/Peter_Sewell/sail into experiments
Diffstat (limited to 'src/pretty_print_common.ml')
| -rw-r--r-- | src/pretty_print_common.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pretty_print_common.ml b/src/pretty_print_common.ml index 70f5b749..02cc3574 100644 --- a/src/pretty_print_common.ml +++ b/src/pretty_print_common.ml @@ -212,7 +212,7 @@ let doc_typ, doc_atomic_typ, doc_nexp, doc_nexp_constraint = and atomic_nexp_typ ((Nexp_aux(n,_)) as ne) = match n with | Nexp_var v -> doc_var v | Nexp_id i -> braces (doc_id i) - | Nexp_constant i -> doc_int i + | Nexp_constant i -> if i < 0 then parens(doc_int i) else doc_int i | Nexp_neg _ | Nexp_exp _ | Nexp_times _ | Nexp_sum _ | Nexp_minus _-> group (parens (nexp ne)) |