diff options
| author | Gabriel Kerneis | 2014-05-19 17:53:49 +0100 |
|---|---|---|
| committer | Gabriel Kerneis | 2014-05-19 17:53:49 +0100 |
| commit | eb75337f152ed64fc77bfc700466a88f683d9a2c (patch) | |
| tree | 5b314d161d66f6c501f61738e502fca9f676f8ba /src | |
| parent | 3655519de88664a2819da58aba5c8a3515b2bb48 (diff) | |
Bugs in old pretty-printer
There are more that are not fixed.
Diffstat (limited to 'src')
| -rw-r--r-- | src/pretty_print.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/pretty_print.ml b/src/pretty_print.ml index 713ed7e3..66ddae26 100644 --- a/src/pretty_print.ml +++ b/src/pretty_print.ml @@ -133,7 +133,7 @@ let pp_format_nexp_constraint (NC_aux(nc,_)) = | NC_bounded_le(n1,n2) -> pp_format_nexp n1 ^ " <= " ^ pp_format_nexp n2 | NC_nat_set_bounded(var,bounds) -> pp_format_var var ^ - " In {" ^ + " IN {" ^ list_format ", " string_of_int bounds ^ "}" @@ -167,8 +167,8 @@ let pp_typscm ppf ts = base ppf (pp_format_typscm ts) let pp_format_lit (L_aux(l,_)) = match l with | L_unit -> "()" - | L_zero -> "0" - | L_one -> "1" + | L_zero -> "bitzero" + | L_one -> "bitone" | L_true -> "true" | L_false -> "false" | L_num(i) -> string_of_int i |