balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

improve printer: Var name

Browse Source
This commit is contained in:
Suzanne Dupéron 2020-04-27 13:01:09 +01:00
parent 164a32a9b2
commit c8f3bb4f04
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/stages/4-ast_typed/PP_generic.ml
View File

@ -10,7 +10,7 @@ let needs_parens = {
| PolyInstance { poly =_; arguments=_; poly_continue } -> | PolyInstance { poly =_; arguments=_; poly_continue } ->
(poly_continue state) (poly_continue state)
); );
type_variable = (fun _ _ _ -> false) ; type_variable = (fun _ _ _ -> true) ;
bool = (fun _ _ _ -> false) ; bool = (fun _ _ _ -> false) ;
z = (fun _ _ _ -> false) ; z = (fun _ _ _ -> false) ;
string = (fun _ _ _ -> false) ; string = (fun _ _ _ -> false) ;
@ -48,7 +48,7 @@ let op ppf = {
| PolyInstance { poly=_; arguments=_; poly_continue } -> | PolyInstance { poly=_; arguments=_; poly_continue } ->
(poly_continue ()) (poly_continue ())
); );
type_variable = (fun _visitor () type_variable -> fprintf ppf "%a" Var.pp type_variable) ; type_variable = (fun _visitor () type_variable -> fprintf ppf "Var %a" Var.pp type_variable) ;
bool = (fun _visitor () b -> fprintf ppf "%s" (if b then "true" else "false")) ; bool = (fun _visitor () b -> fprintf ppf "%s" (if b then "true" else "false")) ;
z = (fun _visitor () i -> fprintf ppf "%a" Z.pp_print i) ; z = (fun _visitor () i -> fprintf ppf "%a" Z.pp_print i) ;
string = (fun _visitor () str -> fprintf ppf "\"%s\"" str) ; string = (fun _visitor () str -> fprintf ppf "\"%s\"" str) ;