Fix floating point printing.
This commit is contained in:
parent
50487f9296
commit
919eaa72e1
1 changed files with 1 additions and 1 deletions
|
@ -93,7 +93,7 @@ and exp ff = function
|
|||
| Ecast (t,e) -> fprintf ff "(%a)(%a)" ty t exp e
|
||||
| Svar c -> const_name ff c
|
||||
| Sint i -> pp_print_int ff i
|
||||
| Sfloat f -> pp_print_float ff f
|
||||
| Sfloat f -> fprintf ff "%Ff" f
|
||||
| Sbool b -> pp_print_bool ff b
|
||||
| Sconstructor c -> constructor_name ff c
|
||||
| Sstring s -> fprintf ff "\"%s\"" s
|
||||
|
|
Loading…
Reference in a new issue